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Thousands of you have already experience 
the speed and power of the DOSPLUS* IV disk 
operating system for the TRS-80** Model 4 
microcomputer. Now Micro- Systems Software in- 
troduces: DOSPLUS IV/A. 

DOSPLUS IV/A is the same great disk 
operating system as the DOSPLUS IV already 
released, but with one big PLUS! DOSPLUS IV/A 
includes the M-ZAL*** Disk Editor/Macro- Assem- 
bler. The best disk operating system for the Model 
4 combines with the best editor/assembler to 
bring you all the development software you 
should ever need for the Model 4 at one low 
price. 

Trademarks: 

DOSPLUS" and "6.0 PLUS" are trademarks ot Micro-Systems Software Inc. 
TRS-80" and "TRSDOS" are trademarks of Tandy Corporation 
"M-ZAL" is a trademark of Computer Applications Unlimited 
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DOSPLUS IV retailed for $149.95, but 
DOSPLUS IV/A will retail for only $169.95! The 
greatest software combination imaginable for only 
a $20 increase in price! No-one should be without 
this package! Existing DOSPLUS IV owners can 
upgrade their packages for only $25,00. 

-Systems Software's DOSPLUS IV 
brings unmatched speed and power to the Model 
4, and now MSS brings the TRUE MODEL 4 
EDITION of M-ZAL, (a regular $149.00 value) the 
world's best machine language development sys- 
tem. Now there is NO other choice when seeking 
the best Model 4 operating system... 

Dealer inquiries invited. 



MICRO-SYSTEMS SOFTWARE, INC. 

4301-18 Oak Circle, Boca Raton, Florida 33431, Telephone; (305) 983-3390 

Orders Only 1-800-327-8724 








ANYONE CAN USE OUR SOFTWARE! 




MAIL PAC II and CHECKING PLUS represent a 
new generation of computer software. Our 
software doesn't even need a manual! Any- 
one can quickly learn to use either package 
by following simple, explicit on-screen 
instructions. But, for those of you who insist 

■ 

-- we've included a complete user's manual 
as well. 



Ka;i irvg Lists, Ims. 
125 Kiln Street 
fieaftantvili** NT JQ563 
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MAIL PAC II FEATURES: 
High Capacity — 

Stores from one to one million names in Zip Code, Numerical or Alpha- 
betical order. The only limitation is your disk storage space. 




Prints your mailing list on 1,2, 3, or4-across labels (with up to 5 user- 
defined lines on each label) or as a compact, user-designed directory. 
The record length is completely user-defined, and each field within 
each of your records is completely variable (allowing storage of any 
number of characters for any particular address entry). Devote fields 
to telephone numbers, codes, or even special messages related to each 
particular name on file. 

Powerful — 

A built-in word processor allows you to create personalized form letters 
for each address on your list (or just a particular group of addresses). 

Ease of Use -- 

Create new mailing lists, review existing lists, handle changes of 
address, delete cancelled names, sort lists, and purge duplicate names 
from your files. Complete on-screen instructions tell you in plain 
english exactly how to accomplish all of these tasks. 

MAIL PAC II $99.95 



Both Programs Require 48K And At Least One Disk Drive {2 Drives For 
Higher Storage Capacities). And All Hard Disk Systems Are Supported. 



JOHN DOUGH 

^OntTIOUS. IN 53418 



K THE 

C&OER Of 



116 



19 



ANCNrMC 

f IRS1 N/ 



CHECKING 
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CHECKING PLUS FEATURES: 

Complete Check Register -- 

Checking Plus stores your entire check register in a disk file, and then 
uses the data to balance your account, track your expenses, and help 
you make budget projections. Review the entire checkbook, enter 
checks, deposits, fees and adjustments, mark outstanding checks when 
paid, and get an instant cash balance at any time. All data can be viewed 
onscreen or printed out in report form. 

Tax Preparation — 

Storage of monthly and yearly totals and other important information 
aids in income tax preparation, for your personal use or for your 
accountant. 

Handles the Details -- 

Store names and addresses for frequently written checks, then print 
checks to fit standard window envelopes, eliminating the need for extra 
typing, You can even store any comment, explanation or other message 
(up to 255 characters) related to a particular check. 

Automatic Monthly Bill Payments -- 

Enter amounts and names of payees for all of your fixed-cost monthly 
payments, and then sit back while the system automatically prints 
checks. 

CHECKING PLUS $99.95 



-TRS-SO Mod LIU & 4 programs supplied on DosPlus (minimum system). 
Complete DosPlus also available. 



FOR YOUR TRS-8CT* • APPLE"* • IBM PC™ • NEC • OSBORNE™ • XEROX™ • KAYPRO™ * TELEVIDEO 1 " • ZENITH™ • SANYO™ 
DEC™ • Tl PROFESSIONAL COMPUTER™ • SUPERBRAIN JR.™ • EPSON™ • Any CP/M™ Computer 

CP/M-based Computers musl be equipped with Microsoft BASIC (MBASIC or BASIC-80) 

TRS-50 trademark Tandy Corp - APPLE trademark Apple Corp - IBM PC trademark IBM Corp ATARI trademark Atari. Inc - OSBORNE trademark Osborne Corp - XEROX trademark Xerox Corp 

KA/PRO trademark Nonlinear Systems, Inc - TELEVIDEO trademark Televideo Systems. Inc - SANYO trademark Sanyo Corp - NEC trademark NEC Corp - DEC trademark Digital Equtpment Corp 

ZENITH Irademark Zenith Corp - Tl PROFESSIONAL COMPUTER trademark Texas Instruments, Inc - SUPERBRAIN Irademark Intertec Corp - CP/M trademark Digital Reseaech ■ EPSON trademark Epson Corp 



OUR SOFTWARE CATALOG 

H & E Computronics, Inc., has mailed more than 1 million 
software catalogs since 1978. Send $2 for our new 64-page 
catalog today! (We also send you our catalog FREE with 
every order). DEALER INQUIRIES WELCOME 



30-DAY MONEY BACK GUARANTEE 

- * 

*" ALL PRICES & SPECIFICATIONS SUBJECT TO CHANGE "" 
DELIVERY SUBJECT TO AVAILABILITY 



■CQMPUTRONICS, 

50 N. PASCACK RD.. SPRING VALLEY, N.Y. 10977 



ADD $3 00 FOR SHIPPING IN UPS AREAS 
ADD $4 00 FOR C O OR NON-UPS AREAS 
ADD S5 00 TO CANADA A MEXICO 
ADD PROPER POSTAGE OUTSIDE OF U S 
CANADA & MEXICO 
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(914) 425-1535 



NEW TOLL-FREE 

ORDER LINE 

|OUTSlQ£ Of N v STftTii 

431-2816 
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information contained herein. While every 
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liability assumed for damages resulting from the 
use of any information contained herein. Please 
address correspondence to: Basic Computing, 
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Our cover for this month's games issue shows 
fighter pilot and photographer Frederick A. 
Johnsen of Tacoma, WA The background 
airbrushed artwork is by Randy "Tarkas" Hoar of 
Central ia, WA 



Magic squares 

Models l/IH/4, 

A graphic remember-the-pattern game. 



13 

Mike Lynne 



Plusl 



15 

David Lewis 



Models l/IH/4,,, 

A generate-the-longest-path game with sound and enough 

twists to make it tough. 
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Editorial 



We have been getting 
disturbing reports from users. 
There are more and more 
complaints about obtaining 
updates and accurate informa- 
tion from local Radio Shack 
Computer Centers. In our 
October, 1983 issue (written in 
August), we told you that 
SuperScripsit 1.2 was available. 
It is now late December and we 
have found out that Super- 
Scripsit 1.2.03 is now the current 
version. We applaud Tandy for 
supporting their product, but 
wonder why the patches, which 
were known in Fort Worth in 
April, are only now coming to 
light. 

We also reported in December 
that TRSDOS 6. 1 was available. 
One reader was told that it was 
only for hard disk purchasers 
and had no application to Model 
4 floppy disk users. We found 
out from other sources that it is 
valuable to all users. Among 
other things, it fixes (for some 
machines), a key-bounce 
problem that Radio Shack has 
yet to acknowledge even exists 
on some Model 4s. We have been 
told that TRSDOS 6.1 has been 
shipped with all Model 4s since 
September, yet some Computer 
Centers do not make it available 
to early purchasers. Other 
readers, who purchased some of 
the earliest Model 4s, complain 
that the pages missing in their 
manuals have never been sent 
to them. Yes, they are registered 
owners. 

We reported way back in 
December, 1982 that TRSDOS 
2.8 was coming for Model I 
owners who have a single disk 
drive and use the Radio Shack 
Doubler Board. That was based 
on a letter from Fort Worth 
confirming that it was coming 
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out. One reader cannot get his 
Computer Center to admit it 
ever existed. 

I was attempting to update 
my Model II Scripsit by 
applying patches that were 
published in the TRS-80 
Microcomputer News, Radio 
Shack's own newsletter. I was 
led from issue to issue, back to 
the phrase, "Do not apply these 
patches unless you have applied 
the February patches." The 
problem is that the February 
patches do not exist. My local 
store is completely unaware of 
them. They were kind enough to 
upgrade my disk at no charge, 
after I showed them the dead 
end that I had reached. 

Obviously the software 

registration card is not enough. 
The newsletter is not enough. 
Asking a local store for help is 
not enough. Tandy needs to 
realize admitting an update 
exists is a positive act that helps 
the consumer, not an admission 
of failure. Every store should 
prominently post , a list of 
current version numbers. Every 
time software is •sold, its binder 
should be opened up to insure 
that the version is up-to-date. 
Software is what makes 
computing useful. Customers 
deserve, and pay for, up-to-date 
information and knowledgeable 
sales personnel. Tandy should 
insure* that is what we receive 
every time we enter a store. 

It is reasonable to charge for 
enhancements and new options. 
Updates that repair problems 
should be free but, if it is a 
matter of money, I would pay. I 
would rather spend a few 
dollars to kill a bug now than 
have it jump out and bite me 
later. 
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Letters to the editor 



I read Juge's apologia. If confined 
to Tandy's own "magazine," that's 
fine. Why is a reputable magazine 
permitting this self-serving 
commercialism to creep into its 
editorial pages? And right after I 
was shouting, "Bravo" to your 
editorial on integrity. Very 
confusing signals you send out. 

Lucien R. Greif 
Chappaqua, NY 

"Tandy Topics" t has one of our 
highest responses to reader interest 
surveys. We agree with your 
assessment that it is clearly a Tandy 
point of view. But what is wrong 
with that? Mr. Ed Juge has never 
denied that he is providing material 
as Tandy sees it. He has always 
given our readers accurate and 
honest information, never stating 
facts he knew to be untrue. Would 
readers prefer no information at all? 
We think not. -Ed. 

I feel very strongly that the 
patches, like those published in 
"Model 1 Tips and Tricks/' 
November, 1983 (page 54) and 
"Notes, etc.," December, 1983 (page 
8), should be well tested by the 
magazine prior to publishing. My 
program, which I advertised in two 
issues and got no response, was for a 
Model 4 speed-up done right. I hope 
you can keep this kind of 
information out of your fine 
magazine in the future. 

Francis A. Desimone 

Futuraware 
Nashua* NJ 
I received my first issue of Basic 
Computing today and already it has 
come in handy. Better yet, 1 can 
already contribute something back. 
Your note in the December issue 
about obtaining 4 MHz speed in the 
Model III mode (Model 4m) is quite 
handy to perk up some aspects of 
SuperScripsit. However, in order to 
avoid the switching to the alternate 
graphics characters caused by the 
POKE 16912, 64, one should use a 
POKE 16912,72. I have enclosed a 
ing of a short program that 
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facilitates rate switching. Listing 1 
will work with either Newdos/80 or 
TRSDOS 1.3 (see line 45). Thanks for 
the info. 

Mike Zarowitz 
Department of Biochemistry 

Univ. of Minnesota 
St. Paul, MN 
As with all information regarding 
patches and changes to programs or 
operating systems, they are given as 
is, with no warranty that they will 
work in all cases. Readers who wish 
to operate their Model 4 at 4 MHz 
when in Model HI mode are 
encouraged to read this month's 
"Notes, etc." column before 
applying any of the published 
patches. Regarding the first letter, 
such information is gathered by our 
readers during their investigations. 
We have no intention to stop 
publishing it. If your product did not 
draw a response, we are sorry. We 
deliver an audience. The decision to 
purchase is determined by them. - 
Ed. 



Listing 1 

5 GLS:A%=PEEK( 16912): IF A% 
=72 THEN PRINT" In 4 MHz rro 

de":GOTO 10 ELSE IF A%=40 

THEN PRINT"ln 1.7 MHz node 

" ELSE PRIOT"Mode Undeterm 

inable" 

10 PRINT :PRINT*'Pr ess <F>as 

t or <s>low" 

15 PRINT 1 ' <W> for SCR 

IPSIT" 

20 PRINT" <E>nd" 

25 A$=INKEY$:IF A$="" THEN 

GOT025 ELSE A%=INSTR( "FfS 

sWwEe",A$):CN A% GOTO 35,3 

5,40,40,45,45,50,50 

30 GOTO 25 

35 POKE 16912, 72 :GOTO 5 

40 POKE 16912, 40:GOTO 5 

45 PRINT :PRINT ,, Loading SCR 

IPSIT": IF PEEK (16397) =103 

THEN GMD"S=SCRIPSIT M ELSE 

CMD"I I, ,"SCRIPSIT" 

50 END 



.SupcrSCRIPSlT PRINTER DRIVERS 

*'ith tin ALPS Pnmer ilrtver (sof iware), you can 
dttai.h your printer to SuperSt'k IPSIT Word Propos- 
ing for automatic interfacing. Over 70 fwinters f-ow 
supported- ^al- or write lor latest Product Revie* 
Sheet describing leature^ supported. 

$fc9 or $59 each, depending <jIi which printer 



If If 
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ALPS UllLTiES 
GREAT FOR SYSTEM DEVELOPERS AND USERS 

MEMD1SK (MODEL 4 IN MODEL l«[ MODE) 

Easy to use. (LElOS tvilyl. l^r MEMD15K as your 
System Drive or \cn6 other Jl.'fs jntb memory for 
InMant Access Ui*e SOK oJ 1 2SK memory . Too 
many features To d?*ctb^ here. Call ^r write* f^r 
mon? de Taiis. 
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4 MODEL '4 UTILITIES (FOR MODEL Di MODE) SI 9 

Run Modei ** at HirH CPU Speed (* MHzJ 

Test Memory *Tr. 12HK Atjtomatk V Clear Memory 

Lasily Sound tft^ep* m JCL liJe or BA!:,tC 



i j IK I ill I t Wl ■ * 



■l * * * h- 4 • 



MEMORY DUMP UTILITY 




HEX/A^CII screen d^pJ.iv ol memory [>ages line], 
expansion fc'+K, low & su 1 * RAM, ROM) wath cas> 
command, Motiel '-*■ (Mod Ml rrKvJe). (SOX 2^ fcCf ?en^ 

LOADMAP UT1LJTY $19 

Graphic screen display oJ ohiect prc^s^rr: load 
address range* wit! 1 : one ciarrim*ind. Model til or 
Mode] k (Mod III model* 

OGRAM SEARCI 

Search for any it*' ing wiThin a BASIC program wirh 
ar, easy CMD commar^J, Display a!J occurrence* on 
screen. LDOS only. Model UMfkilU mode)- 
Great for aJI BASIC programmers? 

ALPS 

23 Angus Road 
Warren, New Jersey 07060 

201 - 647*7230 
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Upgrade Your Radio Shack Software 



Turn your SHACK 

into a MANSION 




With software enhancements from 

BLOCK ISLAND TECHNOLOGIES, Inc. 

Full value for your money is j Nett England tradition... 
a tradition thai survives on Block Island today. We have 
created high-quality software upgrades for Radio Shack's 
Model I! and Model III software packages (hat will greatly 
enhance their performance, speed and ease of operation. 

Model III Accounts Receivable (26-1555) 
Upgrade ($24.95) 

■ l.iphirimg fast machine language *orts l(M0 
times faster than your original program. 

• Now you tan edit the hiw for your customer 

account names. 

• S-ci up a price file lor your products for eisy 
transaction data entry Ju>t cnicT a predeter- , 
mined two dsgjt product number and yoyrprn- 
ducT* desuripnon and once will auiornancaHy 
he entered. User friend l> piumpl* allow you 
to change the prn4u L l nr p:icc easily. 

• Pnnl invoices si IttnttCtkffl CWrj without 

pr.niing nnnplcie ^CJlen^cnts lor daily hillmg. 
fncftJHti^' Ljsh Him 

Mode! II Payroll (26-4503) 
Ipftrade (S49.00) 

• 1 1 mm i have ever gone on io a pay period wiih- 
uui dostnj i he previous permd ymi know h-.^ 
mucti time li can m^t ynu With our upgrade ii 
is almnst impossible 10 ntakr ihuc expensive 

BUSttltC 

• Compkie Hlim repnri ot current period. 
Liirtent month, and current quarter di*ptatrd 
al system start un 

• Warring rlKSHfe^ notify you tf you forget N 1 - 
close out 1hc previous period. 

• f'ompJete 941 employers quarterly report 
Your option to print out 941 or display n nn 
screen Input hnc* to enter your depoiit*. paid 

Write or call tod ay tor the above upgrade packages 
and for a complete list of other Radio Shack software upgrades 

BLOCK ISLAND TECHNOLOGIES, Inc. 

Box 145. Block Island, R.I. 02807 
# 3 Telephone (401 ) 466-2593 
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N otes , etc . 



Model 4m Speed 

We have reported, more than once, 
that the Model 4, when running in 
the Model III mode, can be made to 
run at a faster clock speed. In the 
December, 1983 Notes, etc. column, 
we said to try POKE 16912, 64, but 
warned about possible disk I/O 
problems. In the November, 1983 
article, Model 4 Hints and Tricks, Al 
Mashburn pointed out that a POKE 
&H4210, 249 would also work. {Both 
tips are to be executed from within 
BASIC). Mr. Mashburn's tip worked 
fine on LDOS and NEWDOS, but 
TRSDOS 1.3 has problems with it. 
The clock will be displayed, 
programs will load and run faster, 
but saving a file can cause the disk 
to be destroyed. Ours wouldn't even 
reboot. 

Mr. Jerry Latham of Midwest 
City, OK was able to decipher the 
problem. He wrote to say: "Location 
4210 Hex is an image of the bit 
configuration that is to be sent out 
port EC during certain operations. 
Poking a fixed value into that 
location can cause unexpected 
results. The proper way is to 
examine the contents of the memory 
location and use the OR command to 
set the bit you are interested in. To 
change the clock speed to the 4 MHz 
mode, bit six needs to be altered. To 
set this bit, without affecting the 
status of the other bits, the syntax 
from BASIC would be POKE 
&H4210, PEEK(&H4210) OR 64. To 
reset that bit, and only that bit, the 
BASIC instruction would be POKE 

&H4210,PEEK(&H4210)ANDNOT 
64. 

The individual bit uses for the 
location 4210 Hex are given on page 
18 of the Model 4 Technical 
Reference Manual. Bits 7, 5, and 
are not used. Bit 6 is for CPU fast 
Bit 4 enables EX I/O. Bit 3 enables 
alternate set. Bit 2 is video select 
mode (32 or 64 characters per line). 
Bit 1 is cassette motor on." Mr. 
Latham went on to say that he 
disagreed with the definition of bit 
being not used. He has found that 
setting that bit enables the clock 
display on the video. The point he 
makes is well taken. He concluded 
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with, "Poking fixed values into 
locations can cause other things to 
happen besides what is desired. By 
using the OR and the AND NOT 
instructions, you can control what 
will happen. With LDOS and 
TRSDOS 6.x. x, you can bet that 
memory locations are used as some 
flag, or the individual bits have 
meanings assigned to them. In all 
cases, it is much safer to use the 
logical operators to set and reset the 
bits, rather than picking a fixed 
pattern.'* Our thanks to Mr. Latham 
for clearing up the problem. 



od Company Award 

Last month, we asked you to let us 
know which company, or 
companies, have provided you with 
excellent service or support. We are 
not looking for a product 

recommendation. There are many 
good software and hardware items 
out there. What we want to know is 
which company has earned your 
praise. To let us know, send in the 
"user-friendly" reader response card 
that is in this issue. Be sure that your 
vote reaches us by April 6, 1984. The 
results will be in our July issue. 

Corrections and Updates 

Quick Find, November, 1983. page 
88, needs two changes. In line 130 of 
Listing 2, the numeral 2 should be 
changed to a quote mark ("). In 
Listing 4, line 50, the second equal 
sign, =, should be changed to a 
minus sign. 

Break-Break, December, 1983, 
page 86, caused some readers to tell 
us about other methods they have 
devised. Mr. Robert Bequette 
recommends POKE 16396, 165. 
Pressing the break key does 
nothing, but pressing shift and 
break will work as normal. Mr. 
Lucien Greif has an easy hardware 
change. Just pop the break key-cap 
off and replace the spring with one 
that is quite a bit stronger. That 
way, an operator will have to press 
down quite hard to invoke the break 
key. 

Basic Bits, December, 1983, page 
94, had a bug in line 110 of Listing 2. 
The code >65 should be changed to 



Cameron C. Brown 

>64. As published, the program 
would not allow the "unkilling" of 
any file whose name started with the 
letter A (ASCII 65). 

Exploring VisiCalc, December, 
1983, had some typos in the next to 
last paragraph on page 72. The code 
for the Epson printer is SHIFT@ 
H0F, not HOF as printed. Also, the 
reference in that paragraph should 
be to the LPVIII, not LPVIL We 
received many letters about that 
month's column. Be sure to look at 
this month's Exploring VisiCalc for 
updates and more information on 
how to set printer format codes for 
various models of computers and 
printers. 

Puzzler 

Our November, 1983 puzzler asked 
for a routine that would check a 
string to see if it was palindromic. 
We had well over a hundred 
submissions, and the winner was 
selected at random from those that 
were correct. Our congratulations to 
Mr. Dale Rogerson of Lexington, SC. 
A very interesting solution came in 
from Mr. Bill Pringle of West 
Simsbury, CT. His three pages of 
code were written on a Model I using 
Pascal 80, modified, and then run on 
a Perkin-Elmer SJ242 since his Model 
I did not have a printer. Most 
solutions involved a few lines of 
BASIC, but as all puzzler solvers 
know, there is more than one way to 
succeed, ■ 

This month we want to see if you 
can write, in BASIC, a program that 
will reverse a byte (any integer from 
to 255, inclusive), a bit at a time. 
For example, the decimal integer 65, 
is 0100 0001 in binary. Its bit 
reversal is 1000 0010, the decimal 
integer 130. Our thanks to Mr. Dave 
Mc Glumphy for the suggestion. 
Send your sample code, with 
examples showing the bit reversal of 
the numbers 0, 3, 100, and 254. Send 
solutions to February Puzzler, c/o 
Basic Computing, 3838 So. Warner, 
Tacoma, WA 98409. Do not send 
tapes or disks, no material is 
returned. The winner receives a free, 
six-month subscription to Basic 
Computing. 




The TRS-80 User Journal 



I've never heard of Basic Computing. Why? 

You've been missing something. Since 1978, we were called 80-U.S. Journal. We have now changed our name to 
more accurately describe what we write about. We are conhputerists who publish a journal, not publishers talking 
about computers. 

What is Basic Computing? 

We are a monthly magazine covering all models and aspects of the TRS-80 microcomputers. Each issue contains a 
mix of articles and programs for every level of expertise in the computing field. 

We have regular columns and departments to help both the beginning Color Computerist and the advanced 
Model III assembly language programmer. We make a special effort to make our publication understandable to 
beginners and advanced computerists alike. 

What makes Basic Computing special? 

We give complete program listings that are from working programs, not just bits and pieces of computer code. 
Material in our journal comes from actual computer users, not writers who have little hands-on experience with your 
model. We discuss and give working programs for every model of TRS-80. If you own a TRS-80 Model I with exotic 
hardware additions, or use a Model 100 to communicate to a Model 16B, we have information you need. 

What does it cost? 

Only $1 9.97 for a full year's subscription. That's less than $1 .67 per month for one of the most informative magazines 
you can buy for you and your computer. Even greater savings are possible with longer subscriptions. 

Ok! I want to subscribe. What do I do? 

It's easy. Fill out the attached order card and drop it in the mailbox. 
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Some shorties to whet your appetite 



ever say die 

A strategy game where you must get the right total to win 



Models l/IH/4. 



Tired of games that wear out your fingers without 
challenging your mind? Is your video screen starved for 
some three-dimensional action? 

Enter Dicegame. A game of strategy, Dicegame is 
played on a three-dimensional cube. The die, which 
starts off randomly rolled, is drawn on your screen, and 
digits indicate the values of the sides. You then enter 
into pitched battle with the computer. 

The die is moved by quarter-turns (that means, no 
flipping it over); the top value is then added to the 
running total. The object is to turn the die so that the 
running total becomes 31, or to turn it so that the 
computer must go over 31. It is really not as easy as it 
looks. You will have to contend with spatial distortion 
and ply-moves, not to mention cosmic radiation. 

A Few Words About the Program 

The program is very straight-forward. After 
initialization, turns alternate. The computer does not 
allow an illegal move (line 120). Wins are checked for in a 
bit of logical programming in line 5000; score is kept. 

The values of the sides are stored in the array A(l to 6). 
When a legal move (M) is made, the values are rotated to 
simulate the turning of the die. They are then replotted. 

I had to insert time delays to slow the game down. You 
may care to delete the FOR . . . NEXT loops in lines 300, 
305, and 190. 

The computer has some digital-root strategy built-in, 
so you'll have to think to win. Die-hard gamesters will 
find Dicegame a challenge. To the rest of us, it will be a 
dicey challenge. 

Program Listing for Dicegame 

1 ' DICEGAME BY DAVID LEWIS, BOX 88, SHA 

DY, NY 12479 

10 GOSUB8000 'INTRODUCTION 

20 CDS :PRINT@448,;: INPUT "Do you want to 

go first" ; F$ : CDS : RT=0 : RESTORE : RANDOM 

30 GOSUB4500;GOSUB7000 'initialize and d 

isplay die and values 

10 Basic Computing 



David Lewis 

40 PRINT@20, "RUNNING TOTAL: " ; : PRINT@0, "M 

E: " ; s PRINT@50 , "YOU : " 

50 PRINT@3,CS; :PRINT@54,HS; :PRINT@34,KT; 

90 IF LEPr$(F$,l)="N"THEN200 'GOTO COM?' 

S MOVE. ELSE, HUMAN'S. 

93 ' 

95 ' HUMAN'S MOVE 

100 PRINT@218, "YOUR MOVE"; :PRINT@34, RT; 

110 PRIOT@896,;:INPUT"What number do you 

want on top";M 
115 IFM<1ORM>6THEN110 

1 20 IF M=A( 1 ) ORM=A{ 6 )THEWF0RG=1T03 : PRINT 
@218, "ILLEGAL*"; :FORF=1TO100: NEXT: PRINT 
@ 2 18 , " " ; : FORF=iTO100 : NEXT : NEXT : 

GOTO100 

130 GOSUB6000:RP=RT+M' RE-DO DISPLAY 
140 GOSUB5000 : IFL=-1THENCLS : PRINT(§475 , " I 

WIN I " s CS=CS+1 :GOTO5500 

ELSEI FJ>1THENCLS : PRINT@47 5 , "YOU 
WINI " : HS=HS+1 : GOT05 500 
190 PRINT@34, RT; :FORG=1TO500:NEXT 
195 ' 

200 PRINT@218 f "MY MOVE "; 
2.10 PRINT@896, STRINGS (42 , 32 ) ; : PRINT@896 , 
"I turn the die to"; 

2 30 IFRT=30ANDA( 1 ) <> 1 ANDA( 6 ) <> 1THENM=1 : G 
OTO300 

240 IFRT=29ANDA( 1 ) <> 1ANDA( 6 ) <> 1THENM=1 : G 
010300 'SELECT 1 

2 50 M=3 1-RT : IFM<=6ANDRT< 3 1 ANDA( 1 ) < >MANDA 
( 6 ) < >iyfTHEN300ELSEM=22-Rr : IFM<=6ANDK1?<22A 
NDA( 1 ) <>MANDA( 6 ) < >MTHEN300 

ELSEM=13-RT : I FM<=6ANDRT< 
13ANDA(1 ) < >MANDA( 6 ) < >M.['HEN300 

ELSEM=4-KT:I 
FM<=6ANDRT<4ANDA( 1 ) < >MANDA( 6 ) < >MTHEN300 
260 IF A(1)<>1 Al^JD A(6)<>1THENM=1SLSEM=2 
295 'MOVE FOUND BY NOW 
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300 PORG=1TO500 : NEXT : PRINTM; s GOSUB6000 ' 

RE-DO DISPLAY 

305 FORG=1TO500:NEXT 

310 RT=RT+M:GOSUB5000: IFIf=-lTHENCLS:PRIN 

T@475 , "YOU WIN! " ?HS=HS+1 :GOTO5500 

ELSEI FL=1THENCLS : PRINT@475 , " I WI 
Ni ";CS=€S+lsGGTO5500 
320 GOTO100 
330 ' 

4495 'INITIALIZATION OF DIE FOR THIS GAM 
E 

4500 A(1)=KND(6):A(6)=7-A(1) 
4510 A(2)=RND(6):IFA(2)=A(l)ORA(2)=A(6)T 
HEN4510ELSEA( 5 )=7-A( 2 ) 

4520 A(3)=RND(6):IFA(3)=A(l)ORA(3)=A(6)0 
RA( 3 ) =A( 2 ) ORA( 3 ) =A( 5 )THEN4520ELSEA( 4 ) =7™ 
A(3) 

4524 RT=RT+A(1) 
4530 'NOW DISPLAY DIE 

4540 READAD , PQ s IFAD=-lTl^ENRErURNELSEPOKE 
AEH-1 5 360 , PQ : GOTO4540 

4600 DATA407, 160, 408, 158,409,131,410,131 
,411,131,412,131,413,131,414,131 
4610 DATA 415,131,416,131,417,131,418,16 
3,419,159,420,191,470,184,471,135 
4620 DATA 481,184,482,135,484,191,534,19 



1,535,131,536,131,537,131,538,131 

4630 DATA 539,131,540,131,541,131,542,13 

1,543,131,544,131,545,191,548,191 

4640 DATA 598,191,609,191,612,191,662,19 

1,673,191,675,160,676,159,726,191 

4650 DATA 727,176,728,176,729,176,730,17 

6,731,176,732,176,733,176,734,176 

4660 DATA 735,176,736,176,737,191,738,18 

4,739,135 

4670 DATA -1,-1 

4990 ' 

4995 'CHECK FOR WIN, LOSS 

5000 Lf=~ ( RT=3 1 ) + ( RT> 31 ) : RETURN 

5490 ' 

5495 'ASK FOR ANOTHER GAME 

5 500 PRINT@896 , ; : INPUT" AGAIN" ; F$ ; IFLEFT$ 

( F$ , 1 ) <> "N"THEN20ELSEPRIN1 , "SO LONG . " : END 

5990 ' 

5995 'ROTATE CUBE 

6000 IF A(2)=MTHENG=A(2);A(2)=A(6):A(6)= 

A(5):A(5)=A(1):A(1)=G 

6010 IF A(5)=MIHENG=A(5):A(5)=A(6):A(6)= 

A(2):A(2)=A(1):A(1)=G 

6030 IF A(3)=fflTffiING=A(3);A(3)=A(6);A(6)= 

A(4):A(4)=A(1):A(1)=G 

6040 IF A(4)=MTHENG=A(4)sA(4)=A(6)5A(6)= 
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A(3)iA(3)=A(1):A(1)=G 

6995 'DISPLAY DIE'S VALUES 

7000 PRINT@476, A(l); :PRINT@667,A(2); ;POK 

E610+15360,A(3)+48:PRINT(a658,A(4);:PRIOT 

@550,A(5)?:PRINT@795,A(6); 

7010 RETURN 

7990 ' 

7995 'INTRODUCTION 

8000 a J SsGOSUB4540sPRINT«a602,' , DICE"; :PRI 

1^666, "GAME"; 

8010 PRINT@741,"BY DAVID LEWIS"; 

8030 FORG=l'TO1000sNEXT 

8050 CLS:PRINT@69, "DICEGAME is a three-d 

imensional challenge . " ; PRINT 

3060 PRINTTAB(5) ,, We play the game with a 



single die, and add points to the runn 
ing total by turning the die a quarter- t 
urn (that is, tnovingone of the numbers a 
round the sides to the top) and adding t 
he value on top to the total."; 
8077 PRINT 

8080 PRII\rr:PPJNT"The object — a real ch 

allenge to your thinking powers — is to 

either reach 31 or force me to go above 

31. I'll try to do the same to you.":P 

RINT 

8085 PRINT" Even die-hard gamesters will 
find DICEGAME a challenge — for the r 
est of us, it will be a dicey problem! " 
8090 PRINT : INPUT"READY" ; F$ : F$=" " ; RETURN 



The castle 



A pocket fantasy adventure 

PC-1 



This PC-1 program, The Castle, is a fantasy adventure 
program in which a player roams a castle in his quest for 
the Great Urn, doing battle with any "ores" he 
encounters. 

The display tells the player his immediate sur- 
roundings, using N, S, E, and W for north, south, east, 
and west, and WAL, HAL, TRN, INT, and URN for wall, 
hall, turn, intersection, and Urn. To move, the player 
enters 8 to go north, 2 to go south, 6 to go east, and 4 to go 
west (following the layout of the keypad). If the player 
attempts to move into a wall, the display will tell him 
that he cannot do so. 

If the player encounters an ore, he must try to strike 
him by swinging his sword at one of the ten possible 
positions of the ore. The player enters this position, 
using the numbers to 9. If his aim is true, or slightly off, 
he will vanquish his foe. He has a 40 percent chance of 
this. If he misses, the ore will attack him, and the player 
will lose one of his vitality points (he begins the game 
with 8 vitality points). The battle then continues. 

The game ends either when the player finds the Urn, 
or when he loses all of his vitality points in battle. In 
either case, the total number of defeated ores is included 
in the final display. 

Program Listing for The Castle 

10 LET A$="WAL" , B$="HAL" , C$="TRN" , D$="IN 

T",E$="URN" 

20 FOR M=27 TO 92:A(M)=1:NEXT M 

30 LET A(39)=3,A(40)=2,A(41)=2,A(42)=3,A 
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Laurence Klein 

(44)=3,A(45)=2,A(50)=2,A(53)=3,A(54)=2 

40 LET A(55)=4,A(57)=5,A(58)=3,A(61)=2,A 

(63)=2,A(66)=2,A(69)=2,A(72)=3 

50 LET A(73)=2,A(74)=4,A(75)=2,A(76)=2,A 

(77)=4,A(78)=2,A(79)=2,A(80)=3 

60 LET J=5,K=5,G=5,H=0,I=0,U=8,Z=0 

70 PAUSE "THE CASTLE": GOTO 150 

80 INPUT "WHICH '/7AY?";G 

90 IF G=8 LET H=0,I=-1 

100 IF G=5 LET H=0,T=0 

110 IF G=6 LET H=1,T=0 

120 IF G=2 LET H=0,I=1 

130 IF G=4 LET H=-1,I=0 

140 IF G=5 GOTO 80 

150 1>(J-1)+(K-1)*11+27:IF A(L+H+I*ll)=l 

PAUSE "THAT IS A WALL! ":G=5: GOTO 80 
160 J=nJ+H:K=K+I:Ii=(J-l) + (K-l)*ll+27:IF A 
(L)=5 BEEP 4: PRINT "VICTORY! ";Z:END 
170 IF L=40 GOTO 240 
180 IF L=53 GOTO 240 
190 IF L=58 GOTO 240 
200 IF L=61 GOTO 240 

2.10 P=A(L-11) , Q=A(L+11) , R=A(L-1) , T=A(L+1 
) 

220 PRINT "N:";A$(P);"S:";A$(Q);"W;";A$( 
R);"E:";A$(T) 
230 G=5:GGTO 80 
240 PAUSE "ORG ATTACK 1 " 



Fun 'n games 

250 W= (H+J+Z) , S=(W-INT(W) )*10 

260 INPUT "WHERE IS HE?";N 

270 0=ABS(S-N):IF 0<2 BEEP 2: PAUSE "YOU 

Gar HIM! ":Z=Z+1: GOTO 210 

280 IMJ-1:BEEP 1: PAUSE "YOU HAVE ";U;" P 

OINTS" 

290 IF U=0 PRINT "YOU ARE DEFEATED! ";Z 

;END 

300 GOTO 260 



Magic squares 

A graphic remember-the- 
pattern game 



Models S/ISl/4,1 



Mike Lynne 



Centuries ago, mankind began the unending quest to 
find the ultimate game. A short time ago, I decided to 
drop out of this quest and settle for computerizing a 
favorite game of mine. This game is Magic Squares on 
Merlin™, a handheld electronic game. 

My program started out as a subroutine for a large 
program I was going to write called TRS-80 Merlin. I 
questioned why a person should put six AA batteries in 
the back of a small, hand-held toy to enjoy hours of 
endless fun, when he can just program it all into a $2,000 
computer and seem so much more intelligent. 

The program works the same as Magic Squares, 
except that it has no sound. Try it. You may like it. 

Program Listing for Magic Squares 

] i/) RFM ****************** 

20 REM WRITTEN BY MIKE LYNNE 

30 REM A.D. 1982 

40 RFM ******************* 

50 CLS : CLEAR 100 

60 REM ****** INSTRUCTIONS ******* 

70 PRINT"YOUR GOAL IS TO GET THE 

* * * ■• 

80 PRINT"SQUARES TO MATCH THIS : 

* *» 

90 PRINT" All the outside ones lit 

* * *•« 

100 PRINT"Press the numbers shown to cha 

nge it. Each square controls a certai 

n section of squares." 

110 REM ******* READ DATA ********* 

120 FOR 1= 1 TO 9 : READ A(l) , B(l) ,C(l) , 

D(I) : NEXT 
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130 DATA 206,270,275,334,2.18,282,287,346 

140 DATA 230,294,299,358,462,526,531,590 

,474,538,543,602 

150 DATA 486,550,555,614,718,782,787,846 

,730,794,799,858,742,806,811,870 

160 GOSUB 180 : IF Q$<>" " THEN 160 ELSE 

210 
170 REM ******* SUB ROUTINE ********* 
180 PRINT: PRINT "Press SPACE bar to conti 
nue . " 

190 Q$=INKEY$ : IF Q$="" THEN 190 ELSE R 
ETURN 

200 REM ******** GAME STARTS HERE ****** 
*** 

210 CLS : PRINTTAB(2l)"MIKES MAGIC SQUAR 

ES" 

220 REM *** DRAW BOARD-*** 

230 XL=24 : XR=97 : YT=7 : YB=43 

240 SET(XL,7) : SET(XL,31) : SET(XR,19) 

: SET(XR,43) : IF 2=1 THEN 260 

250 IF YT>43 THEN Z=l ELSE 2=0 : SET(24, 

YT) :SET(25,YT) :SET(73,YT) :SET(74,YT) :SET 

(48/YB) ;SET(49,YB) :SET(96,YB) :SET(97,YB) 

260 XL=XL+1 : XR=XR-1 : YT=YT+1 : YB=YB- 

1 : IF XR=25 THEN 280 ELSE GOTO 240 

270 REM *** READ BOX NUMBERS , PRINT POSIT 



How To Enter Our Listings 

Our program listings come directly from the submissions of our authors. We do 
not edit them at all (that's why you sometimes see spelling errors in them). We run 
all submissions and make sure that they do work 

To enter one of the listings given make sure you have the type of computer 
specified and all necessary programs, operating systems, or hardware that the 
program uses. Type in the program exactly as it appears in the magazine Be extra 
careful so you do not confuse (zero) with O or 1 (one) with I or L. Save the 
program to tape or disk before running it On long programs it is wise to save it as 
you go along, thus protecting yourself from having to re-enter the whole program 
if the lights go out 

Here are some tips to help you catch errors that you may have made in typing If 
you get an out of data error, the problem lies in the DATA statements, rarely in the 
READ line that the computer refers to. Check all DATA lines to see that they are 
correct and that no commas or values are missing It might be useful to print each 
variable after it is read, that way you can follow the computer as it goes through 
the data. Just insert a PRINT variable right after the READ variable command- 
Many of our authors use a linefeed, or downarrow, in their programs. If you see 
lines of code that have many blank spaces and then they begin again on the 
next line with more code, a linefeed was used Even if you don't use them, the 
program will run but the video display may be messed up 

You will find the TRON command helpful in following the program's logic By 
turning the trace command on, TRON, you can see what lines are being 
executed by the program It is very useful in catching GOTO or GOSUB errors and 
incorrect references to linenumbers Don't worry about video formatting when the 
trace is on, it will be quite messy 

If you find yourself getting TM or type mismatch errors, check carefully the use of 
the $ symbol. Also look at the beginning of the program to see if you correctly 
entered the DEFINT or DEFSTR statements. 

Function call errors usually occur when a variable has a value that is not 
allowed. Check all variables that are being used by the function, one of them 
probably has the wrong value 

If after all that, you can't get it to run, send us a paper listing of your program, 
what systems you are running it on, and carefully document the error you are 
getting We will do what we can to find the flaw It is very difficult for us to try to help 
you debug errors over the phone Check Letters and Notes, etc in the next few 
issues for updates or conversions Many times a reader will tell how to embellish a 
previously published program. 



IONS *** 

28id FOR 1=1 TO 9 : READ XX : READ A : PR 

INT (3 A,XX;:NEXr 

290 DATA 7,273,8,285,9,297,4,529,5,541,6 

,553,1,785,2,797,3,809 

300 REM *** PLAGE MARKERS *** 

310 FOR 1= 1 TO 9 : X= RND(50) 

320 IF X<26 THEN P(l)=l ELSE P(l)=0 

330 GOSUB 640 

340 NEXT I 

350 REM *** WAIT FOR MOVE *** 

360 GOSUB 190 

370 REM *** FIND KEY PRESSED *** 

380 IF Q$="7" THEN 490 

390 IF Q$="8" THEN 500 

400 IF Q$="9" THEN 510 

4.10 IF Q$="4" THEN 520 

420 IF Q$="5" THEN 530 

430 IF Q$="6" THEN 540 

440 IF Q$= , M" THEN 550 

450 IF Q$="2" THEN 560 

460 IF Q$="3" THEN 570 

470 GOTO 360 

480 REM ******** TURN BOXES ON/OFF SUB R 

OUT1NES ********** 

490 1=1 : GOSUB 640 ; 1=2 : GOSUB 640 : 

T-=4 : GOSUB 640 : 1=5 : GOSUB 640 : GOSU 

B 590 : GOTO 360 

500 FOR 1= 1 TO 3 : GOSUB 640 ; NEXT I ; 

GOSUB 590 : GOTO 360 
510 FOR 1= 2 TO 6 : IF 1=4 THEN NEXT I E 
USE GOSUB 640 s NEXT I : GOTO 590 
520 FDR 1=1 TO 7 STEP 3 : GOSUB 640 : NE 
XT I : GOTO 590 

530 TOR 1=2 TO 8 : IF 1=3 OR 1=7 THEN NE 
XT I ELSE GOSUB 640 : NEXI I : GOTO 590 
540 FOR 1= 3 TO 9 STEP 3 : GOSUB 640 : N 
EXT I :GOTO 590 

550 FOR 1= 4 TO 8 : IF 1=6 THEN NEXT I E 
USE GOSUB 640 : NEXT I ; GOTO 590 
560 FOR 1= 7 TO 9 ; GOSUB 640 : NEXT I : 

GOTO 590 

570 FOR 1= 5 TO 9 : IF 1=7 THEN NEXT I E 

LSE GOSUB 640 : NEXT I : GOTO 590 

580 'REM ***** CHECK TO SEE IE YOU WIN ** 
**** 

590 IF P(l)+P(2)+P(3)+P(4)+P(5)+P(6)+P(7 

)+P(8)+P(9) <> 9 THEN 360 

600 PRINT @ 960, "YOU WINi I TRY AGAIN < 

Y/N> ";CHR$( 140);; PRINTS 987," "; 

610 GOSUB 190 : IF Q$<>"Y" AND Q$o"N" T 

HEN 610 ELSE PRINTQ$;:IF Q$= ,, Y" THEN PRI 

NT @ 960," 

";:GOTO 310 

620 END 

630 REM ******** CHANGE VARIABLES/ BOXES 

SUB ROUTINE ******** 
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640 IF 1=5 THEN 670 

650 IF P(I)=1 THEN X=128 : P(l)=0 ELSE X 

=191 : P(I)=1 

660 PRINT @ A(l),STRING$(9,X);:PRINT @ B 

( I) , STRINGS ( 4, X); s PRINT @ C ( I ) , STRING? ( 4 

,X);:PRINT @ D(l) ,STRING$(9,X) ; : RETURN 

670 IF P(I)=1 THEN X=191 : P(l)=0 : ELSE 

P(I)=1 : X=128 
680 GOTO 660 



A generate-the-longest- 
path game with sound and 
enough twists to make 
it tough 



Models l/lll/4ii 



David Lewis 



PLUSl is adapted from a hand-held electronic game 
that was popular some months ago. You are pitted 
against the computer in a battle of wits. The object of the 
game is to create the longest possible path. There is a 
catch, though. Every other move is backward. 

The computer generates a pattern of blocks on the 
screen and designates one of them as the starting-block. 
The journey of a thousand moves begins with a single 
step. Let's say you move the cursor up (by pressing the 
arrow key). The computer retraces your path, by going 
down, and then it adds a move of its own; perhaps to the 
left. You retrace the path by going right and up, then you 
make another move of your own. The object is to create 
the longest possible chain of moves (without making a 
mistake) in this series of retracing the opponent's path 
backward and adding your own move. 

The Program 

Though the game is twisted, the program is rather 
straight-forward. A sound routine is provided to help 
you keep track of the moves. (It is general-purpose; you 
can use it in your own programs.) It is read in from line 
15000 on. The program checks the value of the memory 
address 14400 to see which arrow key is being pressed. 
The move that each player makes is added to the 
Opposite ends of two strings; the player's move must 
duplicate one, and the other string is used for the 
computer to move. The computer chooses its moves 
randomly. In either case, the validity of the move is 
checked in lines 1000 on. 

I've found PLUSl an excellent challenge to my 
thinking abilities. I hope you enjoy it. 




RELATIONAL DATABASE 

MANAGER 

Most powerful dbms in 

TRSdom. 




RAL80 



ASSEMBLES BAL TO Z80 
Hands-on intro to Basic 
Assembler Language. 

t|tt 

m M + S3 Shipping 



EASY-TO-USE BASIC 

COMPILER 

Huge speedups, low code 

growth, ultra-acceptant. 



Il 



Iff 



+ S2 Shipping 



ilp 




FULL-SCREEN EDITOR FOR 
BASIC PROGRAMS 
Link Basic to an on-line, 
expert word processor. 

"Sir + SI 50 Shipping 



mo 



EM02 



6502 SIMULATOR 
Ideal for viewing the 
other major 8-bit CPU 

^H + S2 Shipping 



COMMAND-LIST 
PROCESSOR AND 
ALTERNATE SCREEN 
New control 
dimensions. 

i) + SI 50 Shipping 




STRETCH 

Syp@tStep 



Z80 SIMULATOR 
Observe ongoing CPU 
and RAM activity, 
many advanced 



features. 



40 



FC 



FULL-SCREEN 
DIRECTORY UTILITY 
Floating cursor over 
all-directory display. 

JeaP + SI 50 Shipping 



+ S2 Shipping 



Programs work on TRS-80 Mod l/lll, all DOS 



□ ENBSI40 f S3 Shipping 

□ ACCEL3/4S99 95 ■- $2 

□ EDITS40 + Si 50 

Amount Enclosed S 

Name 



□ EXEC2 $55 <- SI 50 

□ FCS25 < SI 50 

□ BAL80 $79 • $3 



□ EMU02 $40 • $2 

□ SuperStep S40 • $2 

□ SEND MORE INFO 



Address . 



City. 



Zip 



MCA/isa 



Exp.. 



IenB ACCEL3 4 EDIT EXEC2 FC <(■ Southern Software England BAlSO'c Balcade Software EMUO? SuperStep -c Allen Gelder Soltwai' 
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Program Listing for PLUS1 

5 'PLUS1/BAS BY DAVID LEWIS, BOX 88, SHA 

DY, NY 12479 

7 CLEAR300 : GOSUB1 5000 

10 GOSUB10000 

20 IFLEFT? ( F$ , 1 ) ="N"THElSfPORG=lTO200 : NEXT 

:GOTO350 

ELSE PRINT@92,"YOUR MOVE"; :G0T02 
70 

190 'HUMAN PLAYER 

200 PRINTS, "YOUR MOVE"; sFORG=lTOLEN(P$ 
) 

220 V=PEEK ( 1 4400 ) : I FV< > 8ANDV< > 1 6ANDV< > 3 2 
ANDV<>64THEN220 

ELSE! FV< >ASC(MID$ ( P$ , G, 1 ) )THENPR 
INT@9 2 , " SORRY " ; : G=USR ( 255): PORG= 1T05 
00sNE]XT;GOTO10 

ELSEB=B+1 : PRINT@7 , B; : IFB 
>HBTHENH.B=B : PRINT@58, HB; 
250 GOSUB1000:NEXT 
260 'ADD MOVE 

270 V=PEEK(14400) : IW<>8ANDV<>16ANDV<>32 
ANDV<>64THEN270 

ELSE GOSUB1000 : IFFO0THEN270 
280 P$=P$+CHR$ (V) : IIV=80RV=32I11ENG=2*VEL 
SEG=V/2 
285 C$=CHR$(G)+C$ 

289 FORG==lTO300sNEXT 

290 'COMPUTER'S MOVE 

300 PRINT@92 / " iMY MOVE "? sFORG=1TOLEN(C$ 

) : V=ASC ( MI D$ ( C$ , G , 1 ) ) : GOSUB1000 : FORJ=1TO 

200 tNEX'r: NEXT '***GHANGE VALUE TO 300 F 

OR A SLOWER GAME OR TO 100 FOR A FASTER 

GAVE 

340 'RND MOVE 'TO BE ADDED 

3 50 J=RND ( 4 ) : V=TNT ( 2 [ J*4+ . 5 ) : GOSUB1000 : 1 

FFO0THEN350 

355 C$=C$+CHR$ (V) : IFV=80RV=32THENG=2*VEL 

SEG=V/2 

357 P$=CHR$(G)+P$ 

360 GOTO200 

995 'CHANGE SCREEN 

1000 PRINT@1 28+1 28*Y+6 *X, B$ ; 

1010 IFV=8THENF-= (Y-K0) : IFF=0THENY=Y-1 s J 

=USR( 50+256*127) 'UP 

1020 IW=16THENF= (Y+l>6 ) : IFF=0THENY==Y+1 i 

J==USR( 1 50+256*43 ) ' DN 

1030 IFV=32Ti iEtiF== (X-.K0 ) : IFb^0TtiENX==X-l : 

,T=t JSR ( 1 00+2 56*64)' IT 

1040 IFV=64THENF= (X+l > .10 ) : IFF=0THENX=X+1 

: J=USR { 200+2 56*32)* RT 

1100 PRINT(§128+12S*Y+6*X, E$ ; : RETURN 

10000 CLS : PRINTCHR$ ( 23 ) 

10010 PRIISIT@476, "U" ; : J=USR( 250+256*50) : F 

ORJ=1TO200;NEXT 

10020 PRINTW74, "L"; :J=USR( 220+256*50) :F 

ORJ=lTO200sNEXT 
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10030 PRINT@478, "S"; :J=USR( 190+256*50) sF 

ORJ=1TO200:NEXT 

10040 PRINT@472, "P"; :J=USR( 160+256*50) :F 

ORJ=1TO200:NEXT 

10050 PRINT@480, "1"; :J=USR( 130+256*50) sP 

RINT@734,"BY DAVID LEWIS" :FORJ=1TO700:NE 

XT 

10060 GLS:PRINT"Tired of games that flex 

your fingers without using your brain?" 

: PRINT: PRINT"PUJS1 is as much of a chall 

enge as you will find on the oath of lif 

e." 

10070 PRINT"You are pitted against the c 

omputer in a battle of wits. The obje 

ct of the game is to create the longest 

possible path." 

10080 PRINT :PRINT"The path starts with o 

ne 'stepping-stone.' You add to it by 

moving in a direction by pressing an a 

rrow key. The computer will then trac 

e the path backwards to the starting pla 

ce. It then -adds a square of its own. 
■i 

10090 PRINT"You then trace the path back 
wards and add another step of your own, 
and so on. The computer will keep trac 
k of your score. Play against a frien 
d for maximum competition." 
10095 PRINT@960,;:INPUT"PRESS ENTER TO C 
ONTINUE"?B$ 

11000 CLS: PRINT" <PLUS1 uses sound to hel 
p you follow the action. Book the 
cassette line into the AUX port on your 
cassette player . > " 
11070 P$="":C$= ! " , :3=0 

12000 PRIN r r:POKE16409,l:INPUT"Do you wan 
t to go first" ;F$ 

12020 CLi5:PRINr"SCORE: ,, :PRLNl 1 (?30/ , PLUSl" 
: PRINT@48 , "HI SCORE : " : PRINT@58, HB 
12030 PRINT@991 ,".";: PRIOT@64*9-1 , " . " ; 
1 2050 FORX=0TO1 : FORY=0TO6 : PRINT01 28+1 28 
*Y+6*X,B$;:NEXT:MFXi 1 :X=RND(7)+l:Y=RND(3) 
+1 : PRINTS! 28+128*Y+6*X, E$ ; : RETURN 
14995 'SOUND ROUTINE 

15000 Z$=STRIMG$(23," ") :V=VARPTR(Z$) : LS 
=PEEK(V+1) :MS=PEEK(V+2) :L=LS+256*MS:IFL> 
32767THENlj=L-65536 

15015 DATA205,127,I0,203,36,69,62,1,211, 
255,16,254,69,62,2,211,255,16,254,37,32, 
239,201 

1 5020 FORG=LTOL+22 : READX : POKEG , X : NEXT : I F 
PEEK(16396)=201TKENPOKK16526,LS:POKE1652 
7, MS ELSE DEFUSR=L 

15030 REM USE USR(FRE0UENCY+256*DURAriON 
) 

1 5040 f J$=STR I NG$ (3,191): E$=STRI NG$ (3,128 
) : RETURN 
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ital madness 



What do the figures really say? 

Models I/III/4,., 



Alan MandeSI 



The next time your friends ask you what your 
computer can do, run this program for them. See if they 
can reason out the clues from the screens shown. Some 
people never can use the spatial clues provided in the 
screens to figure out a word or commonly-known phrase. 
The program can liven up an evening when your visitors 
have played all your computer games. 

The only interesting programming used is the 
technique in lines 100 to 310 where the various screens 
are presented using set graphics and PRINT@'s. Lines 
350 to 360 have the answers entered as backward data 
items and then MID$ is used to write them correctly to 
compare with the user's input. This way, a listing of the 
program will not display the answers in an obvious way. 

If you want to add more of your own puzzles, use the 
formats in lines 100 to 310 and don't forget to change 
your DIMs (line 5), your read data value, and to add the 



data items spelled backward. 
Have fun with the puzzles. 

Program Listing for Mental Madness 

1 REM A FUN CWVLLENGE GAMS 
5 CLS:a J EAR700:DIMMl$ (20) ,M2$ (20) ,M3$ (20 
):PRINTCHR$(23):PRINT(ai40 f "M E N T A L": 
PRINT@266,"M A D N E S S": PRINTING, "BY 
ALAN MANDELL" : GOSUB.3 50 : CLS 
10 PRINTS! 2 8, "Would you like directions 
( Y/N ) " ; : INPUTQ$ : IPQ$="N"THEN100 
1 5 IPQ$ < > " Y "THENCLS : GGTO10 
20 0£:PRIlsrr:PRIOT"You will be presented 
with a series of illustrations. You are 
totry to figure out the word or stateme 



For Hardware and Software Development 



ForTRS-80 Model I or III Computers (48K RAM) 

FEATURING . . . 

® Collection Of 1 000 Data Samples On Each Of 1 6 Channels 

® Optionally Expandable To 64 Channels j . . •-_""; 

® User-Selectable Sampling Rates As Fast As 20 MHz 
® Easy To Specify Triggering & Collection Conditions 



• Timing Displays For Hardware Include: 

Standard 16 channel timing diagram 
Edge mode for transition identification 

• State Displays For Software Include: 

Dump in hex, binary, octal, decimal 
Instruction disassembly of microprocessors 
Map showing frequency of data samples 

® Plus . . . 

Histogram showing software performance 
Signature analysis of 14 points at once 
Correlate sample to reference memory 
Pattern search to aid data location 

Incredibly friendly 'help' displays 



The LA-1680 Logic Anlayzer allows you to 
hook up to a high-speed digital circuit; define 
and collect the data you wish to examine; and 
then, produce a visual representation of the 
actual digital signals for closer inspection and 
analysis^ This facilitates the design and ser- 
vice of computers, peripherals, and any 
equipment which contains digitial logic 
circuitry. 

The LA-1680 Logic Analyzer contains the 
high-speed circuitry necessary to perform the 
time-critical functions of data recognition and 
collection. The TRS-80 microcomputer pro- 
vides for convenient keyboard entry of user 
commands, detailed display of data on 
screen or printer, and storage of test set-ups 
or displays on disk. 



This combination results in 
tal tool, exhibiting features 
today's most expensive, top- 
analyzers. Yet, the affordable 
within the reach of educators : 
industry. 

LA-1680 Logic Analyzer . . . 
High Impedance Probes 

(TTL or CMOS: 8 Channels) .... 

Model I Cable Adapter 

64 Channel Expansion Unit 
Demonstration Disk 



a powerful digi- 
found only on 
of-the-line logic 
LA-1680 is well 
hobbyists, and 

$1250.00 

$275.00 

$95.00 

$1250.00 

$5.00 



OmniLogic, Inc. 

P.O. Box 87 
RENTON, WA 98057 

206/271-2000 
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nt that they represent. ": PRINT :PRINT , "The 
clues are the spatial relationships sho 
wn in the illustrations." 

25 PRINT ;PRINT*'You can quit any time." 
30 PRINT: PRINT "Press <ENTER> if you give 

up. " ;GOSUB997 :GOTO100 
100 1=1 : CLS : PRINTCHR? ( 23 ) : FORX=12T052 % FO 
RY=9T034:SET(X,Y) jNEXTY",XsPRINT(§394, "S A 

N D" ; : GOSUB1000 : 1=1+1 
110 PRINT@200 , "MAN" s FORX=8TO40 % SETT ( X, 1 3 ) 
:NEXT;PRTNT(3326, "BOARD" :GOSUB1000: 1=1+1 
120 PRINT@200, "STAND" : FQRX=3TO40 : SET(X, 1 
3 ) : NEXT : PRINT@3 3 2 , " I " : GOSUB1000 : 1=1+1 
1 30 FORX=8T068STEP8 : FORY=l 210.14 : SEP ( X, Y) 
:NEXTY,X: 2=262 ; Z$= "READING" : FORJ=lTOLEN( 
Z$ ) :PRINT@Z, MID$ (Z$, J, 1 ) ; % Z=Z+4:NEXT:G0S 
UB.1000: 1=1+1 

135 CLSsIFM2$(l-l)="READING RAILROAD" TH 
EN PRINT "VERY CREATIVE THINKING HOWEVER" 
: PORT%=1T01 500 : NEXT 

140 PRINT0202, "WEAR" s FORX=8TO40 : SET(X, 13 
) sNEXT:PRINT(§330, "LONG" :GOSUB1000: 1=1+1 
150 2=148 :PRINT@Z, "R" : Z=Z+64:PRINT@Z, "O" 
: Z=Z+64 : PRINT@Z , "A" s Z=Z+64 ; PRINT@Z , "D" ; Z 
=Z+64:PRINT@Z,"S" 

155 PRINT@272, "ROADS"; sGOSUB.1 000: 1=1+1 
160 2=148 : PRINT@Z , M T " : Z=Z+64 s PRINT@Z , "O" 
: Z=Z+64 : PRINT© Z , "W" : Z=Z+64 : PRINTS , "N u % G 
OSUB1000: 1=1+1 

170 Z=202 : Z$="CYCLE" : F0RJ=1T03 i PRINT@Z, Z 
$ : Z=Z+64 : NEXT :GOSUB1000 : 1=1+1 
180 Z=202:PRINT@Z, "0"rFORX=8TO40:SET(X,l 




"Why can't you play golf like other husbands?' 1 
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3) :NEXT:PRINT@330 f "BS ,, :PRINT@394, "MA": PR 

INT@458, "PHD" :GOSUB1000: 1=1+1 

190 PRINT@202/ , KNEE";PRINT@266, "LIGHTS" : 

GOSUB1000: 1=1+1 

200 PRINT@202, "LE" ;PRINT<a270, "VEL" :GOSUB 

1000:1=1+1 

210 PRINT@202, "IIII" :PRINT@266, "OOOO" :GO 

SUB1000: 1=1+1 

220 PRINT@26, "CHAIR" sGOSUBl 000 : 1=1+1 

230 Z=202:Z$= ,, TOUCH":FORJ=1TOLEN(Z$) :PRI 

NTC d Z,MID$(Z$,J,l):Z=Z+64:NEXT:GOSUB1000: 

1=1+1 

240 PRINT@202, "GROUND" :Z=3 30 :FORJ=lT06sP 

RINT@Z , "FEET " i Z=Z+64 : NEXT : GOSUB1000 : 1=1+ 

1 

250 PRINT@202, "MIND":PORX=8TO40:SET(X # 13 

) :NEXT:PRINT@328, "MATTER" :GOSUB1000: 1=1+ 

1 

260 PRINT@202, "ECNALG":GOSUB1000: 1=1+1 

280 PRINT@202,"GI - Gl":FORX=12TO60:SET( 

X,13) :NEXT:PRINT@332, "CCC" :GOSUB1000:I=I 

+1 

290 PRINT@200, "DEATH => LIFE":GOSUB1000 

: 1=1+1 

300 PRINT@200 , "OHOLENE" : GOSUB1 000 

310 PRINTQ200, "ENOUGH'S ENOUGH" :F0RT%=1T 

01 500 : NEXT : GOTO900 

350 EDRI=1TO20:READM3$(I):NEXT:DATA XOBD 

NAS,DRAOBREVO NAM, DNATSREDNU I,SENIL EHT 

NEEWTEB GNIDAER, RAEWREDNU GNOL, SDAORSS 
ORG , NWOTNWOD , ELCYCI RT , OREZ WOLEB SEERGED 

EERHT,STHGIL NOEN, LEVEL TILPS 
355 DATA SEYE EHT REDNU SELCRIC,RIAHCHGI 
H,NWODHQJOT,DNUORGREDNU TEEF XIS,RETTAM 
REVO DNIM,ECNALG DRAWKCAB,3AESREV0 S'lG, 
HTAED RETFA EFIL,ENO NI ELOH 
360 FORI=1TO20:FORJ=LEN(M3$(I) )T01STEP-1 
:M1$(I)=M1$(I)+MID$(M3$(I),J,1):NEXTJ:NE 
XTI: RETURN 

900 CLS : PRINTCHR? ( 23 ) : PRINT@128, "You had 
" ; C ; " correct " : FORT%=1TO1000 : NEXT : PRINT" 
out of"; I; "tries I ! ":PRINT@926, "< - END 
- >";:END 

997 PRINT@960, "Press the <SPACE BAR> to 
go on."; 

998 IFINKEY$<>" "THEN998 

999 CLS: RETURN 

1000 PRINT@ 768, "Type in your guess "sINP 
UTM2$ ( I ) : IFM2$ ( I ) =M1$ ( I )THENPRINP "VERY G 
GOD"; :G=C+1:GOSUB997:GOTO1010 

1005 PRINT"NOPE => ";Ml$(l):GOSUB997 

1010 CLS: PRINTS 704,"Had Enough Yet (Y/N) 
ii m 

1011 KY$=INKEY$:IFKY$=""THEN1011 

1012 IFl<y$="Y"THEN900 
1015 IB , KY$="N"THH]N1020 

1020 CLS : PRINTCHR$ ( 23 ) : RETURN 
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Not cheap programs but complete software systems. I believe most software is 
pirated because it is overpriced and I'm taking this gamble to prove it. 

HELP STAMP OUT SOFTWARE PIRATES 

I advertised these Systems in 80MICROfor$79.00. 1 rathersell 1 000 systems 
at $1 9.95 than 1 00 at $79.00. These are complete software systems sup- 
plied to you on a TRSDOS 1 .3 system diskette (I paid Tandy Corp. a royalty fee 
for this privilege). All systems fully menu driven — user friendly just insert 
diskettes, reset and go. Systems are supplied with full documentation (although 
most users report that they don't read it). 

LYNN'S PAYROLL SYSTEM 

Complete record keeping & payroll calculation. To include your state's un- 
employment tax & forms, detailed 941 form, prints paychecks & W-2's. 

LYNN'S ACCOUNTS RECEIVABLE SYSTEM 

Single entry — open invoice system. Prints invoice and statements. Built in 
aging report. 

LYNN'S CHECK REGISTER SYSTEM 

Prints checks. Register tor any month, reconciliation statement. 

LYNN'S TRSDOS UTILITY PROGRAMS 

For TRSDOS 1 .3 includes short directory (file names only), cursor directory 
(allows cursor access to CMD, BASIC, and "DO" Files), and a 2K Print 
Spooler. Menu installs utilities on existing TRSDOS Diskettes. 

LYNN'S E-Z MAIL SYSTEM 

Sort by name, zip code, state. 2,500 names. E-Z edit. 

All systems are written for Model III or Model IV in Model III Mode. 

AND NOW THE BEST PART 
ANY SYSTEM ONLY $19.95 EACH. 

Plus $3.00 shipping per order. Illinois residents add 5 1 /4% sales tax. 
(The TRSDOS alone is worth $14.95) 

All systems phone supported call 815/436-4477 and ask the author JOE 
LYNN what you want to know. I will assist all original purchasers any way I can. 

Joe Lynn *-> 




Computer Services 
23501 W. Gagne Lane 
Plainfield, Illinois 60544 

815/436-4477 



BankAmericard 



V/SA 
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Play LASTX and see the computer 

get "smarter" 



Models I/III/4.H 



A. W. Maddox 



We have all played games against 
our computers and frequently we are 
soundly thrashed. These programs 
generally have one thing in 
common. They all have a prescribed 
set of actions to follow in a 
particular situation. They do not 
alter their basic logic. When you 
"beat" the program and play the 
same game again, you will beat it 
again. 

There is, however, a set of 
programs that alter their logic as a 
result of wins or losses. These 
programs are considered to be 
adaptive or to have artificial intel- 
ligence (AI). We define these as a 
process wherein a computer is 
instructed to alter its decision logic 
or variable coefficients as a result of 
prior events with a goal of 
improving its performance on 
subsequent decisions. This means 
we write the program with an initial 
set of decision rules and add 
sufficient coding to allow those rules 
to be altered. To accomplish this, we 
need to tell the computer what 
constitutes a good or bad decision 
and how to alter its rules as a result 
of the outcome produced by these 
decisions. 

To illustrate, consider the 
following simple game. Fifteen 
objects are placed on a table. These 
can be toothpicks, paper clips, 
match heads, or Krugerrands. Call 
these objects "pips." Each of two 
players will alternately remove one 
two, or three pips from those 
remaining when it is his turn. The 
object is to remove the pips in such a 
way that your opponent is forced to 
take the last pip. I call this game 
20 Basic Computing 



"LASTX." 

Play this game with a friend. After 
several games, each player will 
begin to recognize certain patterns 
and will develop a strategy which he 
hopes will win the game. A player 
can insure a win if he can remove the 
second, sixth and tenth pip. Notice 
that if a player removes the second 
pip, he is assured the opportunity of 
removing the sixth, which ensures 
that he can remove the tenth and 
force a win. Therefore, a knowledge- 
ablee player wants to start each new 
game. In a fair game session, 
players should alternate starting 
each game. 

The program in Listing 1 
(LASTX1) will enable you to play 
this game against the computer. If 
you let it start, it will win! 

Before describing the program, we 
need to examine the two subroutines 
used. The subroutine at line 4000 
checks the legality of the move. That 
is, only one, two, or three pips can be 
taken and the player cannot take 
more than what is available. If all is 
okay, it sets the variable LF equal to 
zero. 

The subroutine at line 5000 
reduces the pip count by the amount 
taken and checks to see if any pips 
are left. If there are, it reprints the 
screen and returns for more play. If 
they are all gone, it prints out the 
winner and goes on to another game. 

Let's examine the program. After 
some preliminaries, it reads in its 
decision rules (lines 60 to 100). The 
pip counter is set to the original 15 
pips at line 100. At line 1 10, we allow 
the human to select who is to be first. 
Entering H allows the human to 



start. PL keeps track of whose turn it 
is (PL=1 for TRS-80, PL=2 for 
human). 

Since we don't know the strategy 
of the human, we just ask him to 
enter his move. We check it for 
legality in subroutine 4000 and call 
subroutine 5000 to update the 
display and look for a win. 

The strategy for the computer is 
different. Its entire strategy is 
contained in line 90 which tells the 
computer how many pips to remove 
at each board situation. Note that at 
the beginning of the game (when 
there are 15 pips available), it is told 
to take two pips; a winning strategy. 
When the human selects a move 
where the computer seemingly can't 
win, it takes one pip, slowing the 
game down to allow the human to 
make a strategic error. The 
computer selects its move at line 
1030 and checks it for legality. The 
board is adjusted and win status is 
determined. 

In this game, the computer was 
given precise instructions on the 
winning strategy. It didn't have to 
"think" much. Now, consider the 
same game where the computer is 
not told precise decision rules for a 
winning strategy. It must "learn" 
through playing several games with 
a "knowledgeable" human player. 
This is shown in Listing 2 
(LASTX2). The following lines are 
changed or added. (That's the 
reason for the funny line numbering 
in Listing 1.) 

Line 40: A second dimension of 
three is added to BD to allow the 
computer to select one, two, or three 
at each board situation. CR and CP 
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are dimensioned to keep track of the 
pip count and pips taken. Ten moves 
are allowed for any one game. HR 
and HP are the same for the human. 

Line 104: NM is the number of 
moves taken during a given game. 

Lines 1010 to 1015: Here is where 
the computer selects the best move 
it can for a given remaining pip 
count. It compares each potential 
move at the given PC with all 
possible moves trying to find the 
maximum MX. If it has never faced 
this situation before, it picks a 
random move at line 1016. More on 
this later. 

Lines 1034 to 1036: The current pip 
count and selected move are 
recorded in CR and CP. If it is time to 
do so, the move is incremented. 
Lines 2064 to 2066 do the same for 
the human. 

Lines 7000 to 7050: This is the 
learning phase of the program. After 
each game is over, the game is 
essentially replayed since we kept 
track of each move by the human 
and computer. If the computer won, 
it is rewarded for every move it made 
(adding one to the value of BD 
corresponding to the value of PC 
and the number of pips taken for 
each move). Since the human lost, 
one is subtracted from BD for each of 
its moves. The opposite occurs if the 
human was lucky enough to win. 

Thus, the value of BD is 
continually adjusted as the games 
are played. The strategy in lines 
1010 to 1015 is to cycle through all 
prior situations with the current pip 
count to pick the number of pips that 
corresponds to the maximum value 
of BD for the current PC. 

Several points need to be brought 
out. First, a good human player will 
force the computer to learn fast. This 
game can be learned after about 15 
games. Secondly, the process 
permits the program to learn from 
both players. Many AI programs 
only learn from the winner. This 
program can learn about twice as 
fast if both players are considered. 
Thirdly, there are no provisions to 
save the BD array (where the 
accumulated strategy is stored). The 
program must relearn its strategy 
each time it is run. You may want to 
revise the program to save BD after 
a series of runs and read them in 
when you rerun the program. To 
expand on the AI work, however, 



there is a better way. 

You may have wondered what 
kind of klutz would try to convince 
you that coding the three DATA 
lines at 90-92 was the right way to 
initialize the BD array at 50. You're 
right if that is all that is to be done. I 
chose this way so I can demonstrate 
how an AI program can actually 
modify itself during the learning 
process. I take this approach so I 
don't have to save the values of BD 
after each game session to 
remember the current move 
strategies. Also, this way, I don't 
have to change any of my program, 
just add a few lines. 

The last item that is read into the 
program by a READ statement can 
be found by PEEKing at locations 
16639 and 16640. The address of this 
last DATA element is calculated by 
line 8000 in program Listing 3 
(LASTX3). I know that the start of 
the DATA statements is 144 from its 
end by knowing that each BASIC 
line has a minimum of six bytes of 
storage for it. These have been 
explained in many articles, so I'll 
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only summarize them here. 

The first two identify the storage 
location of the BASIC line that 
follows the current one. The next two 
are for the current linenumber. The 
text of the line follows and takes one 
storage byte for each character or 
operator recognized by the 
interpreter. Finally, there is a zero to 
tell the interpreter that we are done 
with this line of code. Since there are 
150 data storage bytes to store the 45 
sets of 50's, minus the six for the 
system, we have 144 as an offset 
from where the last DATA element 
was READ. Wow! Lines 8020 to 8090 
decode the BD array in such a way 
that the subroutine at line 9000 can 
poke the new values of BD into the 
original DATA statements. 

Exactly what have I done? Load 
and save a copy of Listing 3 as it 
stands, or add the changes in lines 
7060 to 9070 and save a copy. Now, 
run this program just like you ran 
the program in Listing 2. After 
several games, BREAK and list 
program lines 90 to 92. You will 
notice that the program has 



Mac Switch lets you share 
your computer with any two 
peripherals (serial or 
parallel). Ideal for word 
processors— never type an 
address twice. Ask us for 
brochure with tips on how to 
share two peripherals with 
MAC SWITCH. Total 
satisfaction or full refund. 

$9900 



CALL TOLL FREE 800-547-3303 





CIS liter 

Friends # 8 

100 N.W. 86th Ave. 
Portland, OR 97229 
503/297-2321 



February, 1984 21 



LASTX 



changed itself based upon the logic 
of learning. If you save this program 
and RUN it later, you will see that it 
starts where it left off after the last 
game session. 

These programs learned by 
playing many games. Why not let 
the computer teach itself to play? A 
final version of LASTX (which does 
this) requires only six line changes 
to Listing 3. They are as follow: 

105 GM=GM+1:IF GM>50 THEN 
108 

106 A$="C":IF RND(2)=2 THEN 
A$="H" 

107 GOTO 120 

130 IF A$="H" THEN 2005 
2005 IF GM<50 THEN PP=RND(3) 
:GOTO 2020 
2050 GOTO 2005 

Lines 105 and 2005 allow for a 50- 
game learning session. The program 
then reverts back to a two-player 
game as above. line 106 ensures 
that the human and program 
randomly start each game. 

Try this program and you will 
note that the program does "learn," 
but when it reverts back to normal 
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play after its 50 games, it doesn't 
play very well. This is because a 
random "idiot" taught it to play. It's 
nice to know that a human is still 
needed to get it off on the right track. 

Listing 1 - LASTX1 

10 'GAME OF "LAST X" WHERE COMPUTER HAS 

SETT STRATEGY 

20 CLS 

30 DEFINT A-Z 

40 DIM A$(2),BD(15) 

50 A$(l)=" 1 ":A$(2)=" YOU " 

60 FOR 1=1 TO 15' 

READ IN 

70 READ BD(I)' 

STRATEGY 

80 NEXT I' 

VALUES 

90 DATA 1,1,2,3,1,1,2,3,1,1,2,3,1,1.2 

100 PC=15' 

PIP COUNTER 
110 INPUT"WHO'S FIRST, <H> OR <C>";A$ 
120 GOSUB 5010 ' 
DISPLAY BOARD 
130 IF A$="H" THEN 2010 ' 

IF HUMAN, SKIP 
1000 PL=1' 

*** COMPUTER PLAYER *** 
1010 PP=BD(PC) ' 

PICK A MOVE 
1020 GOSUB 4000 ' 

LEGAL CHECK? 
1030 PRINT"I'LL TAKE ";PP 
1040 FOR 1=1 TO 2000' 
SLOW DOWN FOR HUMAN 
1050 GOSUB 5000 ' 

ADJUST BOARD 
2000 PL=2' 

*** HUMAN PLAYER *** 

2010 INPUT"YOUR MOVE HUMAN, ENTER PIPS"; 
PP 
2020 GOSUB 4000 ' 

LEGAL CHECK? 
2030 IF LF=0 THEN 2060 
2040 PRINT"CHEATER" 
2050 GOTO 2010 
2060 GOSUB 5000 * 

ADJUST BOARD 
2070 GOTO 1000 ' 

COMPUTER'S MOVE 
4000 LF=0' 
*** LEGAL CHECK *** 
4010 IF PP>3 THEN LF=1 ' 

GREATER THAN 3 
4020 IF PP<1 THEN LF=1 ' 

LESS THAN 1 
4030 IF PP>PC THEN LF=1 ' 

NOT ENOUGH LEFT 
4040 RETURN 
5000 POPC-PP' 
*** ADJUST BOARD *** 
5010 IF PC=0 THEN 6000 ' 

EMPTY? 
5020 FOR 1=1 TO PC 
5030 PRINT"X "; 
5040 NEXT I 
6000 ' 

*** WIN CHECK *** 
6010 IF PO0 THEN RETURN 
6020 PRINT A$(3-PL);"WIN" 
6030 GOTO 100 



Listing 2 - LASTX2 

10 'GAME OF "LAST X" WHERE COMPUTER LEAR 

NS TO WIN 

20 CLS 

30 DEFINT A-Z 

40 DIM A$(2),BD(15,3),CR(10),CP(10),HR(1 

0),HP(10) 

50 A$(l)=" I ":A$(2)=" YOU " 



60 FOR J=l TO 3: FOR 1=1 TO 15' 

READ IN 

70 READ BD(I,J)' 

STRATEGY 
80 NEXT I, J* 
VALUES 

90 DATA50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 
50,50,50,50 

91 DATA50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 
50,50,50,50 

92 DATA50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 
50,50,50,50 

100 PO=15' 

PIP COUNTER 
104 NM=0' 

MOVE COUNTER 
108 A$="C"' 

SET TO ME 
110 INPUT"WHO'S FIRST, <H> OR <C>";A$ 
120 GOSUB 5010 ' 

DISPLAY BOARD 
130 IF A$="H" THEM 2010 ' 

IF HUMAN, SKIP 
1000 PL=1' 
*** COMPUTER PLAYER *** 

1010 MX=0' 
MAXIMUM MOVE 

1011 FOR 1=1 TO 3' 
CYCLE THROUGH MOVES 

1012 IF MX>BD(PC,I) THEN 1015 ' 
THIS ONE BETTER? 

1013 MX=BD(PC,I)' 
NO, THIS ONE IS 

1014 PP=I' 

SET PIPS TO TAKE 

1015 NEXT I' 
ALL DONE 

1016 IF MX=50 THEN PP=RND(3) ' 
WELL, JUST PICK ONE 

1020 GOSUB 4000 ' 

LEGAL CHECK? 
1025 IF LF<>0 THEN 1000 ' 

SORRY, DO AGAIN 
1030 PRINT"I'LL TAKE ";PP 
1032 IF A$="C" THEN NM=NM+1 
1034 CR(NM)=PC' 
SAVE PIP COUNTER 
1036 CP(NM)=PP' 
SAVE THIS MOVE 
1040 FOR 1=1 TO 2000" 
SLOW DOWN FOR HUMAN 
1050 GOSUB 5000 ' 

ADJUST BOARD 
2000 PL=2' 

*** HUMAN PLAYER *** 

201.0 INPUT"YOUR MOVE HUMAN, ENTER PIPS"; 
PP 
2020 GOSUB 4000 ' 

LEGAL CHECK? 
2030 IF LF=0 THEN 2060 
2040 PRINT"CHEATER" 
2050 GOTO 2010 
2060 GOSUB 5000 ' 

ADJUST BOARD 
2062 IF A$="H" THEN NM=NM+1 ' 
INCREASE MOVE COUNTER 
2064 HR(NM)=PC+PP' 
SAVE PIP COUNTER 
2066 HP(NM)=PP' 
SAVE THIS MOVE 
2070 GOTO 1000 ' 
COMPUTER'S MOVE 
4000 LF=0' 
*** LEGAL CHECK *** 
4010 IF PP>3 THEN LF=1 ' 

GREATER THAN 3 
4020 IF PP<1 THEN LF=1' 

LESS THAN 1 
4030 IF PP>PC THEN LF=1' 

NOT ENOUGH LEFT 
4040 RETURN 
5000 POPC-PP' 
*** ADJUST BOARD *** 
5010 IF PCM) THEN 6000 ' 

EMPTY? 
5020 FOR 1=1 TO PC 
5030 PRINT"X "; 
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5040 NEXT I 
6000 ' 

*** WIN CHECK *** 
6010 IF PO0 THEN RETURN 
6020 PRINT A$(3-PL);"WIN" 
7000 ' 

*** LEARNING *** 

7010 PRINT"JUST A SEC WHILE I LEARN FROM 
THIS VALUABLE EXPERIENCE" 
7020 FOR 1=1 TO NM' 
REPLAY GAME 
7030 BD(HR(l),HP(D)=BD(HR(l),HP(l))+(3- 
2*PL) ' HUMAN WINS 

7040 BD(CR(l),CP(l))=BD(CR(l),CP(l))-(3- 
2*PL) ' COMPY WINS 
7050 NEXT I 
7060 GOTO 100 ' 
LET'S PLAY AGAIN 



Listing 3 - LASTX3 

10 'GAME OF "LAST X" WHERE COMPUTER MODI 

FIES ITSELF 

20 CLS 

30 DEFINT A-Z 

40 DIM A?(2),BD(15,3),CR(10),CP(10),HR(1 

0),HP(10) 

50 A$(l)=" 1 ":A$(2)=" YOU " 

60 FOR J=l TO 3:FOR 1=1 TO 15' 

READ IN 

70 READ BD(I,J)' 

STRATEGY 
80 NEXT I, J' 
VALUES 

90 DATA50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 
50,50,50,50 

91 DATA50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 
50,50,50,50 

92 DATA50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 50, 
50,50,50,50 

100 PC=15' 

PIP COUNTER 
104 NM=0' 

MOVE COUNTER 
108 A$="C" 

SET TO ME 
110 INPUT"WHO'S FIRST, <H> OR <C>";A$ 
120 GOSUB 5010 ' 

DISPLAY BOARD 
130 IF A$="H" THEN 2010 ' 

IF HUMAN, SKIP 
1000 PLfI' 
*** COMPUTER PLAYER *** 

1010 MX=0' 
MAXIMUM MOVE 

1011 FOR 1=1 TO 3' 
CYCLE THROUGH MOVES 

1012 IF MX>BD(PC,I) THEN 1015 ' 
THIS ONE BETTER? 

1013 MX=BD(PC,I)' 
NO, THIS ONE IS 

1014 PP=I' 

SET PIPS TO TAKE 

1015 NEXT I' 
ALL DONE 

1016 IF MX=50 THEN PP=RND(3)' 
WELL, JUST PICK ONE 

1020 GOSUB 4000 ' 

LEGAL CHECK? 
1025 IF LF<>0 THEN 1000 ' 

SORRY, DO AGAIN 
1030 PRINT" I'LL TAKE "jPP 
1032 IF A$="C" THEN NM=NMfl 
1034 CR(NM)=PC* 
SAVE PIP COUNTER 
1036 CP(NM)=PP' 
SAVE THIS MOVE 
1040 FOR 1=1 TO 2000' 

SLOW DOWN FOR HUMAN 
1050 GOSUB 5000 ' 

ADJUST BOARD 
2000 PL=2' 

*** HUMAN PLAYER *** 

2010 INPUT"YOUR MOVE HUMAN, ENTER PIPS"; 
PP 



2020 GOSUB 4000 ' 

LEGAL CHECK? 
2030 IF LF=0 THEN 2060 
2040 PRINT"CHEATER" 
2050 GOTO 2010 
2060 GOSUB 5000 ' 

ADJUST BOARD 
2062 IF A$="H" THEN NM=NM+1 ' 
INCREASE M3VE COUNTER 
2064 HR(NM)=PC+PP' 
SAVE PIP COUNTER 
2066 HP(NM)=PP' 
SAVE THIS MOVE 
2070 GOTO 1000 ' 
COMPUTER'S MOVE 
4000 LF=0' 
*** LEGAL CHECK *** 
4010 IF PP>3 THEN LF=1 ' 

GREATER THAN 3 
4020 IF PP<1 THEN LF=1 ' 

LESS THAN 1 
4030 IF PP>PC THEN LF=1 ' 

NOT ENOUGH LEFT 
4040 RETURN 
5000 PC=PC-PP' 
*** ADJUST BOARD *** 
5010 IF PC=0 THEN 6000 ' 

EMPTY? 
5020 FOR 1=1 TO PC 
5030 PRINT"X "; 
5040 NEXT I 
6000 * 

*** WIN CHECK *** 
6010 IF PO0 THEN RETURN 
6020 PRINT A$ ( 3-PL) ; "WIN" 
7000 ' 

*** LEARNING *** 
7010 PRINT"JUST A SEC WHILE I LEARN FROM 

THIS VALUABLE EXPERIENCE" 
7020 FOR 1=1 TO NM' 



REPLAY GAME 
7030 BD(HR(l),HP(D)=BD(HR(l),HP(l))+(3- 
2*PL) ' HUMAN WINS 

7040 BD(CR(l),CP{l))=BD(CR(l),CP(l))-(3- 
2*PL) ' COMPY WINS 
7050 NEXT I 
8000 AD=PEEK( 16639 )+256*PEEK( 16640)' 

LAST DATA READ 
8010 AD=AD-144' 
FIRST OF 50'S 
8020 FOR 1=1 TO NM' 

DECODE 
8030 XR=HR(I)' 

THE 
8040 XP=HP(I)' 

HUMAN 
8050 GOSUB 9010 
8060 XR=CR(I)' 

AND 
8070 XP=CP(I)' 

COMPUTER 
8080 GOSUB 9010 
8090 NEXT I' 

MOVES 
8100 GOTO 100 ' 

LET'S PLAY AGAIN 
9000 IF XR*XP=0 THEN RETURN' 
ODD GAME PROTECTION 
9010 XB=BD(XR,XP) ' 
*** POKE ROUTINE *** 
9020 PK=AD+50*(XP-1)+3*(XR-1) 
9030 LB=INT(XB/10)' 

LEFT BYTE 
9040 RB=XB-LB*10' 

RIGHT BYTE 
9050 POKE PK,48+LB' 

POKE LB 
9060 POKE PK+1,48+RB* 

POKE RB 
9070 RETURN 
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As many times before, I typed in DIR and the screen 
filled with the filenames that were on the disk. I jabbed 
at the hold key in an attempt to keep the filenames from 
scrolling so fast that I would miss the one for which I 
searched. With my free hand, I ran a finger down the 
screen, adding more fingerprints to the ones already 
there from previous DIR commands. I poked the hold 
key again and again to view the entire directory. "Had I 
missed the filename because I had not stopped the 
scrolling in time?" I thought. 

Finally, in frustration, I printed the directory, and 
through slow finger-scrolling through the listing, I 
found that the program was, indeed, on that disk. 

For those who have spent much time and frustration 
searching through the directory listing provided by the 
Model II command DIR, as I have, there is hope to be 
found in the following text. What I have done is to 
combine the use of assembly language and FORTRAN 
to produce two modules which, when combined, provide 
a useful directory utility. 
DIR 

The DIR command is issued from the system level. It 
provides a listing of the directory of programs found on 
the selected diskette. The listing also includes (let me 
see, I must look up what all those things are) diskette 
name, drive number, today's date and time, date of 
creation, date of update, attributes, file type, record 
length, number of records used on the diskette, number 
of extents, granules allocated, sectors allocated, and 
sectors used. 

The DIR command of the Model II provides a wealth 
of information that can be very valuable to the 
programmer and the debugger. Rarely is all of that 
information of much value to the user or operator of the 
computer. The profuse listing provided with the DIR 
command might be called "information over-kill" 
because so much of the information is not only of little 
value for most applications, it is rather distracting and 
even confusing. While it is fine to have access to the 
information, I would prefer that it remain hidden most 
of the time. 

Another pitfall of the Model II DIR command is that 
the information seems to have no order. Oh, it is 
displayed in nice, neat columns, but to find the program 
for which you are looking, you must scan the entire 
directory. It is not sorted alphabetically, by creation 
date, or by any other method which might aid us in our 
plight to find out quickly what is on the diskette. 

What is needed is a program that can be called in place 
of DIR which can provide an alphabetical listing of the 
directory on the diskette in a selectable drive. Listings 1 
and 2, when linked, provide such a program. 
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Sorted Directory — SD 

My approach to the Sorted Directory (SD) program 
was to utilize two types of programming. First, I used 
assembly language to take advantage of the supervisor 
calls provided with TRSDOS. These are subroutines 
which can be called from assembly language programs 
which allow the programmer to take advantage of 
program segments which have already been thoroughly 
checked out and which perform the desired operations. 
In conjunction with assembly language, I used 
FORTRAN to provide easier input from the operator, 
easier device selection for output and easier 
modification in the future. 

Listing 1 is the assembly language module. This 
module provides for retrieval of the entire non-system 
directory and places it in a RAM buffer. The module 
sorts the directory in ascending or descending order 
(user selectable) and provides for system error 
messages. Much of the code is simply setting up for 
calling TRSDOS supervisor routines. Three of these 
routines are used in this module: RAMDIR, ERROR, 
and SORT. 

RAMDIR is a routine which gets the selected disk 
directory (the location labeled DSK: stores selected disk) 
and places the directory in RAM at selected location (the 
location labeled BUFFER: stores the directory). The 
information available is exactly the same as that 
provided by the DIR command. 

SORT is a routine which sorts strings of equal length, 
starting at a specified position within the string for a 
key of specified length. The key in this case is the 
filename. This routine will sort into either ascending or 
descending order (the location labeled MODE: controls 
direction). Since we are sorting directory entries which 
are of equal length (34 bytes each), this is a useful call for 
the sort. (Even though this sort is a bubble sort, it is fast 
in machine language.) 

ERROR is a routine which provides a display of the 
error code if an error occurs during retrieval of the 
directory information. (The most frequent error will 
probably be due to incorrect drive specification which 
will produce ERROR 8, Disk Drive Not Ready.) 

Listing 2 is the FORTRAN module. FORTRAN was 
used for this module rather than doing the entire project 
in assembly language because the input/output is easier 
from FORTRAN than from assembly language. Also, 
cleaning up the BUFFER: area is a little nicer in 
FORTRAN. 

The FORTRAN module is composed of seven 
segments. The first segment (lines 1200-1500) identifies 
the variables. The EXTERNAL statement identifies the 
entry point of the assembly language routine. DSK, 
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MODE, and BUFFER are the same variables as used in 
the assembly language routine and are included in the 
COMMON data area in both modules. 

Although LOGICAL might at first seem to be an 
inappropriate type of variable to be used with what are 
usually integer or string types, in this FORTRAN, 
logical can include both integers and strings and has the 
advantage of having each one-byte location addressable 
by variable name. This reduces the bit-twiddling that is 
often necessary when using other types to store string 
information. 

The second segment (lines 1900-2200) places blanks at 
all locations of the buffer in which the directory will be 
stored. This is necessary to insure that illegal characters 
will not be found in locations that are not written to the 
RAMDIR call. 

i. 

The third segment (lines 2600-4000) reads input from 
the operator. The operator is requested to enter the drive 
number, the mode of sorting, and the output device. The 
output device can be any valid FORTRAN output 
device. The default' devices with FORTRAN are: display 
= 3, printer = 2, disk = 6-10. (Oh, yes, you can put the 
sorted directory on disk . . . handy for future use.) 

The fourth segment (line 4700) calls the assembly 
language module which provides the sorted directory 
entries along with the extraneous information of which 
we are trying to rid ourselves. 

The fifth segment (line 5100) checks to see if an error 
occurred in the call to DIR0 (the assembly language 



routine). If an error occurred, the error code has been 
displayed and display of the directory is inappropriate, 
so a jump is made to the end of the program. 

The sixth segment (lines 5700-6300) removes new, 
unwanted characters in the BUFFER area which were 
placed there by the call to DIR0. Since many of these 
characters may cause FORTRAN I/O errors, they must 
be replaced with spaces. 

The final segment (lines 6800-7800) moves the 
appropriate characters from BUFFER to BUF which is 
a print buffer from which the characters are printed. The 
format for the printing provides for five columns of 
alphabetized directory entries. Each column contains 
twenty possible entries and the columns are filled in 
order. With this method, the entire user directory (96 
possible entries) can fit on the display at the same time. 

Link/Load 

For those who are unfamiliar with compiling, linking 
and loading, a short explanation is in order. 

When programs are written in BASIC, FORTRAN, or 
in assembly language, the text which we type is known 
as the source code. When a program is run from BASIC, 
each statement gets converted to executable machine 
instructions each time it is encountered in the program. 
When programs are written in FORTRAN or assembly 
language, they are translated to machine executable 
instructions only once. These instructions are normally 
stored as a separate file on the disk. 
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The process of translating FORTRAN programs is 
called compiling. The process of translating assembly 
language instructions is called assembling. Commonly, 
when programs or modules are assembled or compiled, 
the code which is produced is not executable code. 
Rather, what is produced is relocatable code. This code, 
when it has been run through a loader, becomes 
executable code. The loader modifies the relocatable 
code so that it can be placed anywhere in memory. 
Frequently, the loader has an additional capability. It 
can combine relocatable modules to form the final 
program. This process is called linking. A program 
which performs both the linking and loading operations 
is known as a linking loader. The Link-80 program is 
such a linking loader. 

The modules for the final SD program must be created, 
compiled, and linked. Both modules should be created 
with EDIT-80. The assembly language module should be 
saved as DD/MAC and the FORTRAN module should 
be saved as SD/FOR (other names may be used if you 
make appropriate changes below). 

Compiling the assembly language routine is done 
with the MACRO-80 assembler using the command line 
M80 DD,=DD. This produces the relocatable module 
DD/REL. 

The FORTRAN module should be compiled with the 
FORTRAN-80 compiler using the command line F80 
SD,=SD. This produces the relocatable module 
SD/REL. 

The two modules can then be linked, loaded and saved 
with LINK-80 using the command line L80 SD,DD,SD- 
N-E. This will produce the final executable program SD 
which can then be executed simply by typing SD and 
answering the appropriate questions. 

Note: If you have only one disk drive, as I do, you will 
need to copy the DD/REL file to the same diskette that 
contains the SD/REL file and LINK-80 before 
link/load. 

Summary 

This article should provide you with two things. First, 
you should end up with a utility program which will 
provide you with a more frequently useful directory than 
the DIR command. Second, it should be an example of 
using assembly language in conjunction with 
FORTRAN to produce useful programs. 

If you do not have access to the assembler or 
FORTRAN compiler, I will provide a copy of the final 
SD program and the source files for both SD/FOR and 
DD/MAC on your TRSDOS diskette for $5, covering the 
cost of copying. Send your 8-inch TRSDOS diskette to 
Richard A. Poitras, 2505 Highwood Drive, Missoula, 
MT 59803. 

FORTRAN-80, MACRO 80 and LINK-80 are 
copyrighted by Microsoft and licensed to Radio Shack. 

Richard A. Poitras taught high school science and 
mathematics for eight years. He holds B.A. and B.S. 
degrees in Microbiology and Computer Science, 
respectively. He is currently employed at the University 
of Montana in the Department of Zoology and provides 
computer programming, computer interface design, and 
electronic maintenance for the department. He also does 
programming and consulting on a private basis. 
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Listing 1 

00100 7 This program uses supervisory c 

alls to TRSDOS to get the 

00200 7 disk directory in RAM and sort 

it into alphabetical order. 

00300 ; It should be linked with SD/FOR 

for total control of directory 
00400 7. listing. No listing is provide 
d by the segment of program 
00500 

00600 ENTRY DIR0 

00700 DIR0; PUSH AF 7 Save st 
atus 

00800 PUSH BC 

00900 PUSH DE 

01000 PUSH HL 

01100 PUSH IX 

01200 

01300 7 Get DIR into RAM using supervis 
or call RAMDIR 
0.1400 

01500 ID A, 53 

01600 ID IX,DSK 7 Drive # 

01700 LD B,(IX) 

01800 LD C,0 

01900 LD HL, BUFFER 

02000 RST 8 

02100 JR Z,DIR1 ?Continu 

e if no errors 

02200 7 Error occurred. . .print e 
rror code using supervisor 
02300 7 call ERROR 
02400 

02500 LD B,A 

02600 LD A, 39 

02700 RST 8 

02800 LD (IX), 99 7 Notify 

SD/FOR of error 
02900 JR RETURN 

03000 

03100 DIR1: LD BC,34 7 Offset 
to next entry 
03200 IDA,'!' 7 Char to 

check for at DIR end 
03300 LD HL, BUFFER 7 DIR sto 

rage area 

03400 DIR1_1: CP (HL) ; Check c 
har 

03500 JR Z,DIR2 7 Found e 

nd of DIR area 

03600 ADD HL,BC ?Next en 

try 

03700 JR DIR1_1 7 Loop 't 

il end found 
03800 
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03900 ;Sort Directory using supervisor 

call SORT 
04000 

04100 DIR2: LD A, 56 
04200 CCF 

04300 LD BC,34 ; Offset 

to last valid entry 

04400 SBC HL,BC ;Get fir 

st byte of last entry => by HL 



04500 


PUSH HL 


;Put HL 


on stack for move to DE 




04600 


POP DE 


;Put it 


in DE 






04700 


LD Bf 1 




04800 


LD C,34 




04900 


LD H, (IX+1) 


;Mode fr 


cm SD/FOR 






05000 


LD L,15 




05100 


LD IX, BUFFER 




05200 


RST 8 




05300 RETURN: 


POP IX 




05400 


POP HL 




05500 


POP DE 




05600 


POP BC 




05700 


POP AF 




05800 


RET 




05900 







yDisk # 
;0=ascen 



06000 COMMON /TABLE/ 

06100 DSK: DB 

06200 MODE: DB 

d sort, not 0=descend sort 

06300 BUFFER: DB ; Buffer 

extends from here on for 3265 bytes 

06400 

06500 END 



Listing 2 



PROGRAM SD 



00100 

00200 C 

00300 C This program must be lin 

ked with DD/MAC which provides 

00400 C a sorted directory in th 

e common TABLE 

00500 C 

00600 C The common is as follows 

00700 C DSK = Disk number fo 

r directory from this prog. 

00800 C MODE = Method of sort 

; = ascend, not = descend 

00900 C BUFFER= Sorted directo 

ry 34 bytes per entry 2-16 file spec 
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01000 c 
01100 c 

01200 

01300 

34, 100), I, J, K, 

01400 

01500 

UFFER 

01600 C 

01700 C 

gal characters 

01800 C 

01900 

02000 

02100 

02200 5 

02300 C 

02400 C 

output device 
02500 C 
02600 
02700 7 

,/) 

02800 
02900 10 
03000 
03100 



EXTERNAL DIR0 
LOGICAL DSK, MODE, BUFFER ( 
BUF(75) 

LOGICAL COLON, DEVICE 
COMMON /TABLE/DSK,MODE,B 



Blank out buffer so ille 
don't goof up output 

DO 5 J=l,100 
DO 5 1=2,16 
BUFFER(I,J) = ' ' 
CONTINUE 

Get disk#, sort mode and 



WRITE (3,7) 

FORMAT ( ' Enter drive # ' 

READ (3,10) DSK 
FORMAT (II) 

WRITE (3,15) 
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P.O. Box 18982 #13 
AUSTIN, TX 78760 

5 12/445-6427 

Add $2.00 for shipping — Texas residents add 5% sales tax. No C.O.D.'s, 
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03200 15 FORMAT (' Ascending sort 
enter 0, Descending sort enter 1',/) 



03300 
03400 
03500 
03600 
03700 

#',/, 
03800 



READ (3,20) MODE 
20 FORMAT (II) 

WRITE (3,25) 
25 FORMAT (* Output device 



2 ' 2 = Printer',/, ' 3 
= Display',/,' 6-10 = Disk files',/) 
03900 READ (3,30) DEVICE 

04000 30 FORMAT (II) 
04100 
04200 C Get directory in RAM and 

sort using routine written 
04300 C in assembly language usi 
ng supervisor calls. 



04400 
04600 
04700 
04800 
04900 



C 
C 



GALL DIR0 

C 

C Check for error and term 
inate if found. 
05000 C 

05100 IF (DSK.EQ.99) GOTO 999 

05200 
05300 C 

05400 C Remove unwanted characte 
rs from listing so display will 



05500 


C 


be easily readable. 


05600 


C 




05700 




DO 50 J=l,100 


05800 




COLON = .FALSE. 


05900 




DO 50 1=2,16 


06000 




IF (BUFFER(I,J).EQ.58) C 


OLON = 


.TRUE. 




06100 




IF (.NOT. COLON) GOTO 50 


06200 




BUFFER(I,J) = ' ' 


06300 


50 


CONTINUE 


06400 






06500 


C 




06600 


C 


Move lines to printing b 


uffer 


and print 


on device. 


06700 


C 




06800 




DO 100 J=l,20 


06900 




DO 90 K=2,16 


07000 




BUF(K-1 )=BUFFER(K, J) 


07100 




BUF(K+14)=BUFFER(K,J+20) 


07200 




BUF ( K+29 ) =BUFFER( K , J+40 ) 


07300 




BUF(K+44 ) =BUFFER(K, J+60 ) 


07400 




BUF(K+59 )=BUFFER(K, J+80 ) 


07500 


90 


CONTINUE 


07600 




WRITE (DEVICE, 60) (BUF(K 


),K=1, 


75) 




07700 


60 


FORMAT (' \(75A1)) 


07800 


100 


CONTINUE 


07900 


999 


END 
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Computer ease 

Software is the most important part, 
but what can it do? 



For all readers 



Mark E. Renne, Contributing editor 



We've looked at most of the 
hardware parts of the computer in 
the past few months. Hardware 
consists of the computer, disk drives, 
printer, and possibly a modem. Even 
though these devices are important 
to the system, the most important 
part of the computer is the software. 
This is the program (or programs) 
that actually makes the computer 
useful as a problem solver. This 
month, we'll look at major types of 
software and what they can do for 
you. 

What do you mean, software's the 
most important part? 

Many people overlook the 
importance of software. In fact, a 
computer without the right software 
is merely a very nice looking box 
that serves no useful purpose. The 
fastest CPU in the west is no good 
without the appropriate program. 
When buying a computer, always 
think software first. 

What do most people use 
computers for? 

There are as many uses for 
computers as there are people who 
use them. The most common uses 
are word processing, spreadsheet 
analysis, accounting, education, 
entertainment, and data base 
management. These are six very 
general categories which are each 
made up of several hundred 
variations. For example, there are 
many different accounting 
packages written specifically for 
businesses ranging from farming to 
publishing. There are very few 
businesses that don't have software 
specifically written for their needs. 

What's a word processor? 

A word processor is the answer to 
a writer's prayers. It allows you to 
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create letters, documents, or 
manuscripts with much more 
flexibility than the common 
typewriter. Words or phrases can be 
moved throughout the document 
with the touch of a couple of keys. 
Lawyers can complete 40-page 
contracts by simply inserting the 
"party of the first part" and "party 
of the second part" a single time. 
The word processor also takes care 
of margins and justification. 
Justification is the process of 
inserting "white space" between 
words to make all lines exactly the 
same length. Take a look at the right 
and left edges of this column. See 
how all the lines line up at the edge? 
There's a computer at work here. 

Word processors can also take 
care of footnotes, quotations, 
headers and footers. Entire books 
can be typeset using a computer 
without ever putting a single word 
on paper. There are hundreds of 
word processors, each with its own 
unique features. Programs are also 
available to check your spelling and 
even your grammar. If you write for 
a living, a word processor is 
becoming a must. If you type like I 
do, it's a blessing. 

What's a spreadsheet? 

This is a computerized version of 
the columnar pad. Anyone involved 
with forecasting has become fondly 
attached to it. This program allows 
you to do "what if calculations 
based on changing external factors. 
Pretend you happen to own the 
largest widget manufacturing plant 
in the U.S. It appears that the price 
of widget grease may be increasing 
by 10 percent next year. What price 
will you have to sell your widgets at 



to maintain the same profit 
percentage? What price would you 
sell them at to keep the same total 
dollar amount of profit? Can you 
compete against the Burmese 
widget? 

These questions and many others 
could be answered quickly by your 
spreadsheet program. You might 
even ask for the effect of widget 
grease varying by nine percent, or 
seven percent. This type of instant 
calculation, where all items change 
in relation to others, is priceless to 
busy executives. What might have 
taken hours to calculate can now be 
done in seconds. Without a doubt, 
spreadsheets have changed 
financial modeling forever. 

What type of accounting 
programs are there? 

Again, there are hundreds of 
different accounting packages. 
General ledgers, accounts 
receivable, accounts payable, 
inventory, payroll and cost 
accounting can all be done by the 
computer. Software packages are 
also written to handle these 
accounting activities for specific 
types of businesses. There are many 
medical accounting packages which 
are tailored especially for the 
medical profession. Recently, many 
packages have started popping up 
for the farming profession where 
good bookkeeping can make the 
difference between survival and 
failure. All of these programs make 
accounting easier and generate far 
more reports than any person could 
be expected to by hand. 

A computer, with the appropriate 
software, can make any business 
more efficient and profitable. You 
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must realize, however, that the 
transition to computerized book- 
keeping is not without its problems. 
You should keep both manual and 
electronic books for several months 
to make sure the bugs are out of the 
system. I always recommend a year 
just to make sure. Also, if you don't 
keep manual books in order, don't 
expect a computer to solve your 
organizational problems. An 
organized business profits by the 
addition of a computer, a 
disorganized business simply 
becomes more disorganized at a 
faster rate with a computer. 

What type of educational 
programs are there 1 ? 

Computers can be used to 
augment instruction in just about 
any subject. They can teach foreign 
languages, advanced math, 
elementary math, and even 
computer science. Note that I said 
augment. No computer could teach 
anything without the help of a 
highly skilled educator. Education 
is dependent on proper lesson 
preparation and sequence. 
Computers will never replace 
teachers, but computers can serve as 
another tool for overworked 
professionals. 

Computers in the classroom are 
exciting for both students and 
teachers. They can be used to help 
slower students keep up with the rest 
of the class. They can also present a 
challenge to those who are at the top 



of the class. Computer Assisted In- 
struction (CAI) is especially useful 
for instruction that requires 
repetition. Multiplication practice 
can be done on the computer while 
the teacher is free to help other 
students that may require more 
personalized instruction. Com- 
puters can also be used in the home 
to educate. Remember, the same rule 
applies here. Parents can't be 
replaced by computers, only helped. 

But can computers play Space 
Invaders? 

The entertainment value of 
computers is demonstrated by the 
great number of video arcades 
appearing all over the country. The 
games that you put your quarters 
into are simply dedicated 
computers, programmed to beat 
your socks off. The same games 
found in these arcades can be 
purchased for most computers. 
There are certain advantages to 
playing games on your computer 
instead of at the arcade. It's 
definitely cheaper. Even for the 
most devoted computer scientist, 
there's nothing like a good 
adventure. Good games can educate 
as well as entertain. 

What's a data base and why do 
they need managing? 

A data base is simply a collection 
of facts or figures. It might be a list 
of names and addresses or a current 
inventory of automobile parts. It 
could be as simple as your 



Christmas card list, or as 
complicated as the federal budget. A 
data base manager, DBM, is simply 
a program that "manipulates" this 
data base. A good DBM will allow 
you to reference your data in 
hundreds of different ways. You 
might want a listing of world 
famous writers that publish in Basic 
Computing, National Geographic 
and Newsweek. Albeit a short list 
when finished, it would be quite a 
task to sort through by hand 
thousands of writers looking for the 
common variables. 

DBM's can also be used to create 
mass mailings in combination with 
an excellent word processor. These 
generate letters you receive telling 
you about driving down your street 
in your new car after subscribing to 
several magazines. These programs 
are extremely useful and can take 
the place of several different 
programs if they're carefully 
written. 

That's a quick survey of the major 
types of programs available for most 
computers. The most difficult choice 
you'll have to make is not which type 
you need, but which of the several 
hundred programs within each type 
you really want. Next time, we'll 
look at telecommunications and the 
outside world. Questions are always 
welcome and so are answers. 
Remember, computers are fun and 
understanding them is easier than 
you think. Happy computing. 
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Advance to go 



Compute the odds for the grand old 
game of Monopoly™ 



Models l/ll/lll/4in/12/16ii/Color Computer 



Joey Robichaux 






Jaded by adventures? Bored stiff with space war 
shoot : em-ups? Think you'll lose your cookies if you 
swallow one more power pellet? Then come back — visit 
the pre-smart bomb, pre-electronic world of game 
playing . . . back then, deciding what game to play was 
easy. There was only one king, the rest were pretenders 
to the throne. 

And just what game was played time and time again, 
above all others? Why, what other game than a cut- 
throat, no-holds-barred, damn-the-torpedoes marathon 
session of Monopoly! 

Conceived by an unemployed heating and 
engineering equipment salesman to divert the real- 
world gloom of the Great Depression, Monopoly has 
since delighted the millions who have explored this 
fantasy world of paupers and tycoons. 

Now, however, Monopoly's time has passed. Out of 
touch with our high-tech society, Monopoly must follow 
the paths of shepherds, horses and buggies, and bustle 
manufacturers. For gamesters, home computers reign 
supreme — Monopoly, the king, is dead. 

- 

Or is he? Can a royal marriage, computers and the 
grand old game, produce new insights to renew the 
pleasures found in a game of Monopoly? Why, of course, 
as it's been said over and over, computers can do 
anything! 

Computers excel at simulations, especially at 
mimicking a particular task. Programs can tally 
occurrences of special events and people can draw 
conclusions from the results of simulations. For 
example, a program can simulate a game of Monopoly. 
The program can "roll" a pair of dice, "move" a playing 
piece, "dole" out rewards, and "collect" penalties. For a 
short game or perhaps a few hundred moves, the results 
can be interesting. \[ \\ * 0* r 

Poll the dice thousands and thousands, or even 
millions, of times, however, and statistical patterns 
emerge. These statistical tendencies provide new 



insights to Monopoly, insights that yield new playing 












t 











One question a Monopoly player might like to answer 
is, "Are some properties landed on more often than 
others? There are 40 properties, or squares, on a 
Monopoly board. If every possible move is equally likely 
and is unaffected by any outside event, then each square 
should be visited 2.5% of the time (100%/40 squares). 

Program Listing 1 examines this question. Line 70 
heads a loop that simulates approximately 10,000 die 
rolls in Monopoly. Line 60 drives this simulation loop 
100 times. This totals a 24-hour marathon session of 
over a million moves. Change line 60 to FOR N=l TO 1 
for a shorter session. (As written, Listing 1 will take 
hours to yield results. — Ed) 

Run the program — the overall results will probably 
not surprise you, but individual results almost certainly 
will. 

It won't ruin any surprise to say that some squares are 
landed on more often than others. Since the possible 
moves are not equally likely, and since moves are 
affected by outside events (Community Chest, Chance, 
Go To Jail, etc.), you can easily explain the variety of 
different landing percentages. ' 

It takes a little more thought to explain some of the 
results. Remember, if one square is landed on more often 
than any other square, that square is a starting place 
more often than any other square. What will that initial 

■ 

move average? 

* 

Actually, a Monopoly player really isn't interested in 
how of tan a property is visited. He's interested in how 
much money a piece of property is worth. Does a low 
rent, high landing percentage property return more cash 
than a high rent, low landing percentage property (or a 
medium rent, medium landing percentage property)? 

. We can also examine each property's potential worth. 
Once the program determines the landing percentages, 
it multiplies each percentage by the maximum amount 
of rent the property can return. 
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For example, a property that returns $100 in rent (with 
a hotel, of course) has a landing percentage of 7.5%. 
Every time an opponent makes a circuit of the playing 
board, that property will return an average of $7.50. 

Once you've determined each property's potential 
worth, the next question is, "What color group is the 
most valuable?" 

Finally, the questions are all settled. Should you wheel 
and deal to gather the whole red-yellow side? Should you 
hoard those orange $500's and hold out for Park Place 
and Boardwalk? What good are utilities, anyway? 
Should you trade for a ride on the Reading? Let the other 
guys worry about it. You'll be a tycoon and tycoons don't 
wonder, they know. 

Program Listing for Advance to Go 

10 ' PROGRAM NUMBER THREE 

20 CLS 

30 DIM C(40), P(40), M$(40), PO(40) 

40 FOR 1=1 TO 40: READ M$(l): NEXT 

50 D=0: DB=0 ' DB=CHECK FOR DOUBLES 3 T 

IMES IN A ROW 

60 FOR N=l TO 100 'CONTROL LOOP 

70 FOR 1=1 TO 10000 'CONTROL LOOP ALSO 

80 A = INT(RND(0)*6+1): B = INT(RND(0)*6 

+1) ' ROLL DICE 

90 IF A=B THEN DB=DBH: ELSE DB=0 ' DOJ 

BLES? 

100 IF DB=3 THEN D=10: DB=0: GOTO 280 ' 

GO TO JAIL 

110 D = A+B+D: IF D>40 THEN D=D-40 ' MO 

VE PLAYING PIECE 

120 IF D=7 OR D=22 OR EK36 THEN GOTO 680 

'CHANCE CARD 
130 IF D=2 OR C=17 OR D=33 THEN GOTO 770 

'COMMUNITY CHEST 
140 IF D=30 THEN C(D)=C(D)+1: GOTO 190 
'GO TO JAIL 

150 C(D) = C(D)+1 'COUNT NUMBER OF TIME 
S LANDED 

160 IF L=0 THEN 330 'NOTHING SPECIAL HA 
PPENED 

170 ON L GOTO 180 , 190 , 200 , 210 
, 220 , 230 , 240 , 250 , 260 , 270 



'ADVANCE TO GO 
'GO TO JAIL 
'GO BACK 3 SPAC 



'GO TO BOARDWAL 

'GO TO ILLINOIS 

'GO TO ST. CHAR 

'GO TO JAIL (AG 

'ADVANCE TO GO 
'GO TO READING 

'NEAREST RR OR 

'GOT OUT OF JAI 



180 D=40: 1=0: GOTO150 

190 E=10: L=0: GOTO280 

200 D=D-3: L=0: GOTO150 

ES 

210 D=39: L=0: GOTO150 

220 D=24: 1=0: GOTO150 

AVE 
230 D=ll: 1=0: GOTO150 
LES PLACE 

240 D=10: 1=0: GOTO280 
AIN) 

250 D=40: L=0: GOTO150 
260 D=5 : 1=0: GOTO150 
RAILROAD 

270 D=DN: L=0: GOTO150 
UTILITY 

280 C(10) = C(10) + 1 
L ROUTINE 

290 FOR MM=1 TO 3: A=INT(RND(0)*6+l) 
INT(RND(0)*6+l) 

300 IF A=B THEN 90 'ROLL DOUBLES T 
O GET OUT 

310 NEXT MM 'OF JAIL? 

320 GOTO 90 

330 NEXT I 
340 NEXT N 
350 X=0: FOR 1=1 TO 40: X=X-+C(l): NEXT 

'TALLY TOTAL LANDINGS 
360 FOR 1=1 TO 40 

370 P(I) = C(I) / X 'DETERMINE PERC 
ENTAGES 
380 NEXT I 
390 FOR 1=1 TO 40 

400 P(I) = INT(P(I)*1000) 'CLEAN PERCE 
NTS UP 

410 P(I) = P(I)/10 
420 NEXT I 
430 CLS 
440 ' PRINT PROPERTY LANDING AMOUNTS AND 

PERCENTS 
450 FOR 1=1 TO 10 

460 PRINT M$(l),"was landed on";C(l);"ti 
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ines. ";P(l);"%" 

470 NEXT I 

480 PRINT :INPUT"Press <ENTER> for next s 

creen";Z$ 

490 CLS 

500 FOR 1=11 TO 20 

5 10 PRINT M$ ( I ) , "was landed on" ; C( I ) ; " ti 

ines. ";P(I);T 

520 NEXT I 

530 PRINTS INPUT "Press <ENTER> for next 

screen" ;Z$ 
540 CLS 

550 FOR 1=21 TO 30 

560 PRINT M$(l)/'was landed on";C(l);"ti 
Hies. ";P(I);"%" 
570 NEXT I 
580 PRINT; INPUT "Press <ENTER> for next 

screen" ;Z$ 
590 CLS 

600 FOR 1=31 TO 40 

610 PRINT' M$(l)/'was landed on";C(l) ;"ti 
rnes. ";P(l);"%" 
620 NEXT I 
630 PRINT 

640 PRINT"Press <Y> to redisplay percent 
s, or <N> to continue" 
650 GOSUB1360 
660 IFK$="Y"THEN430 
670 GOTO850 

680 K = INT(RND(0)*16+1) 'PULL A CHAN 
CE CARD 

690 IF K>10 THEN 150 'NO AFFECT 
700 IF K<8 THEN L=K+2:GOTO150 "LOAD "ON 

L GOTO" 
710 L = 10 

720 'FOLLOWING FINDS NEXT RAILROAD OR UT 
ILITY 

730 IF K=8 THEN IP D<11 OR D>29 THEN DN= 
12s ELSE DN=28 

740 IF K=8 THEN GOTO150 'ADVANCE TO UT 
ILITY 
750 IF D=7 THEN DN=15s ELSE IF D=22 THEN 

DN=25s ELSE DN=5 
760 GOTO 150 'ADVANCE TO RA 

ILROAD 

770 K = INT(RND(0)*16+1) 'PULL OOMMUNIT 
Y CHEST CARD 

780 IF K=l THEN LfI: GOTO 150 'ADVANCE 
TO GO 

790 IF K=2 THEN 1=2 s GOTO 150 'GO TO JA 
IL 

800 GOTO 150 

810 DATA"MEDITERRANEAN "/'COMMUNITY CHES 
T" /'BALTIC AVE" /'INCOME TAX" /'READING RR 
" , "ORIENTAL AVE" , "CHAIS[CE" , "VERMONT AVE" , 
"CONNECTICUT AVE" , "JAIL" 

820 DATA"ST CHARLES PL" /'ELECTRIC GO","S 
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tates ave" /Virginia ave" /'Pennsylvania 

RR"/'ST JAMES PLACE" /'COMMUNITY CHEST"/' 

TENNESSEE AVE" , "NEW YORK AVE" , "FREE PARK 

ING" 

830 DATA"KENTUCKY AVE" /'CHANCE" /'INDIANA 

AVE" , "ILLINOIS AVE" , "B&O RR" , "ATLANTIC 
AVE" , "VENTNOR AVE" , "WATER WORKS" , "MARVIN 

GARDENS" /'GO TO JAIL" 
840 DATA"PACIFIC AVE" /'NORTH CAROLINA ", 
"COMMUNITY CHEST" /'PENNSYLVANIA "/'SHORT 

LINE" , "CHANCE" , "PARK PLACE" , "LUXURY TAX 
" , "BOARDWALK" , "GO" 
850 FOR 1=1 TO 40 
860 READ PO(I) 

870 PO(I) = PO(I) * P(I)/100 
880 PO(I) = INT(PO(I)*100) 
890 PO(I) = PO(I)/100 
900 NEXT I 
910 CLS 

920 PRINT: PRINT; PRINT /'PROPERTY POTENT 
IAL WORTH" SPRINT 

930 PRINT" The potential worth of an 
y property is based on " 
940 PRINT" the maximum revenue possible ( 
property w/hotel, own " 
950 PRINT"all the railroads, etc.) multi 
plied by the landing" 

960 PRINT"probability. If a property re 
turns $100 in rent" 

970 PRINT"and there is a 7.5% chance of 
landing on that" 

980 PRINT "property, then the potential w 
orth is $7.50. 

990 PRINT sPRINT; PRINT :INPUT"Press <ENTER 
> when ready" ;Z$ 
1000 CLS 

1010 FOR 1=1 TO 10 

1020 PRINT M$(l);"'s potential worth is 
$";PO(i) 

1030 NEXT 

1040 PRINT: INPUT"Press <ENTER> for next 

screen"; Z$ 
1050 CLS 

1060 FOR 1=11 TO 20 

1070 PRINT M$(l);"'s potential worth is 
$";PO(l) 
1080 NEXT 
1090 PRINT: INPUT"Press <ENTER> for next 

screen"; Z$ 
1100 CLS 

1.110 FOR 1=21 TO 30 

1120 PRINT M$(l);'"s potential worth is 
$";PO(i) 

1130 NEXI 1 

1140 PRINI: INPUT"Press <ENTER> for next 

screen" ;Z$ 
1150 CLS 
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1160 FOR 1=31 TO 40 

1170 PRINT M$(l);"'s potential worth is 

$";PO(i) 

1180 NEXT 

1190 PRINT; PRINT"Press <Y> to redisplay 

worth's, <N> to continue" 
1200 GOSUB1360 

1210 IF K$="Y" THEN GOTO 1000 
1220 K=l 

1230 FOR 1=1 TO 39 

1240 IF P0(I+1) > PO(K) THEN K=I+1 
1250 NEXT 
1260 CLS 

1270 PRINT: PRINT: PRINT 

1280 PRINTM$(K);" has the highest potent 
ial worth of $";PO(K) 
1290 PRINT :PRINT 

1300 INPUT"Press <ENTER> to continue" ;Z$ 
1310 GOTO1380 

1320 DATA250,0, 450, 0,200, 550,0, 550,600,0 
1330 DATA750, 70, 750, 900, 200, 950, 0,950, 10 
00,0 
1340 DATA 1050,0,1050,1100,200,1150,1150 

,70,1200,0 

1350 DATA 1275,1275,0,1400,200,0,1500,0, 

2000,0 

1360 K$=INKEY$:IFK$=" "THEN! 360 



1370 IFK$="Y"THEN RETURN: ELSEIFK$="N n THE 

N RETURN :ELSEG0T01 360 

1380 CLS:PRINT'VALUES BY COLOR GROUP" 

1390 PRINT" SIDE 1" 

1400 Pl=PO(l)+PO(3):P2 = P0(6) + PO(8) + 

PO(9) 
1410 PRINT"PURPLE = $";P1,"LT BLUE = $"; 
P2 

1420 PRINT :PRINT" SIDE 2" 
1430 Pl=PO(ll) + PO(13) + P0(14): P2 = P 
0(16) + P0(18) + P0(19) 

1440 PRINT'VIOLET = $"? PI, "ORANGE = $";P 
2 

1450 PRINT: PRINT" SIDE 3" 
1460 P1=P0(21) + PO(23) + PO(24): P2=P0( 
26) + PO(27) + PO(28) 

1470 PRINT"RED = $"; PI, "YELLOW =$" ; 
P2 

1480 PRINT: PRINT" SIDE 4" 
1490 P1=P0(31) + PO(32) + PO(34): P2=P0( 
37) + PO(39) 

1500 PRINT"GREEN = $";P1,"BLUE =$";P2 
1510 PRINT 

1520 PRINT"RAILROADS = $";PO(5)+PO(15)+P 
0(25)+PO(35), "UTILITIES = $";PO(12)+PO(2 
8) 
1530 GOTO1530 
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See what is going on inside 

Model 100 Joseph L. Harfmann, Jr. 



This is a utility program for the 
Radio Shack TRS-80 Model 100. It 
takes up about 3.5K bytes, which 
leaves you with about 1.5K bytes 
free when you are using an 8K Model 
100. 

It consists of memory examine, 
memory modify, disassemble, 
interpret memory as 16-bit number 
from to 65535, request new address 
to memory examine, jump to out-of- 
line code (if desired by user), return 
from out-of-line code (if desired by 
user), and print disassembled output 
to the printer. 

The mnemonics of the disas- 
sembler are Zilog mnemonics since 
they seemed preferable to the Intel 
mnemonics. The only difference in 
the mnemonics is that the Zilog 
"add a,n" are rendered here as "add 
n." Since the only thing you can add 
the n to is the a register, we left out 
this redundancy. You can put it in if 
you modify the proper string. 

The op codes for the 8085 are, for 
the most part, quite regular, leading 
to the algorithmic generation of the 
mnemonics for most cases. This 
accounts for the small size of this 
disassembler even though it is 
written in BASIC. 

When outputting to the display, 
the disassembler requires operator 
input for every line disassembled. 
This seemed practical since 
disassembly is very "thinking 
oriented." You are constantly 
asking yourself, "Should I branch, 
or continue straight through?" 

When printout of the disassembly 
is requested, printing will 
automatically continue unless an 
instruction is disassembled, which 
may result in an out-of-line jump. In 
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this case, the printing stops and a 
message appears on the display 
asking you to give the command to 



jump, continue, return, or go back to 
non-printing command mode. 
The disassembler is decimal 



Table 


1 - 8085 ( 


)PCod 


es 


/Zilog 


Mnemonics 







nop 


l 

Id bc,i 


nn 


2 

Id (be) 


,a 


3 

lnc be 


4 
inc b 


5 
dec b 


6 

Id b,n 


7 
rlca 


8 
illeg 


9 

add hi 


,bc 


10 

Id a, (be) 


11 
dec be 


12 
inc c 


13 
dec c 


14 

Id c,n 


15 
rrca 


16 
illeg 


17 

Id de,i 


nn 


18 

Id (de) 


,a 


19 
inc de 


20 
inc d 


21 
dec d 


22 

Id d,n 


23 
rla 


24 
illeg 


25 
add hi 


,de 


26 

Id a,(de) 


27 
dec de 


28 
inc e 


29 

dec e 


30 

Id e,n 


31 
rra 


32 

ria 


33 

Id hl.i 


in 


34 

Id (nn) 


,hl 


35 
inc hi 


36 
inc h 


37 
dec h 


38 

Id h,n 


39 
daa 


40 
illeg 


41 
add hi, 


,hl 


42 

Id hi, Ci 


nn) 


43 
dec hi 


44 
inc 1 


45 
dec 1 


46 

Id l,n 


47 
cpl 


48 

sia 


49 

Id sp,nn 


50 

Id (nn) 


,« 


51 
inc sp 


52 

inc (hi) 


53 

dec (hi) 


54 

Id (hl),n 


55 
scf 


56 
illeg 


57 
add hi, 


,ap 


58 

Id a,(nn) 


59 
dec sp 


60 
inc a 


61 ' 
dec a 


62 

Id a,n 


63 
ccf 


64 

Id b,b 


65 

Id b,c 




66 

Id b,d 




67 

Id b,e 


68 

Id b,h 


69 

Id b,l 


70 

Id b,(hl) 


71 

Id b,a 


72 

Id c,b 


73 

Id c,c 




74 

Id c,d 




75 

Id c,e 


76 

Id c,h 


77 

Id c,l 


78 

Id c,(hl) 


79 

Id c,a 


80 

Id d,b 


81 

Id d,c 




82 

Id d,d 




83 

Id d,e 


64 

Id d,h 


85 

Id d,l 


86 

Id d,(hl) 


87 

Id d,a 


88 

Id e,b 


89 

Id e,c 




90 

Id e,d 




91 

Id e,e 


92 

Id e,h 


93 

Id e,l 


94 

Id e,(hl) 


95 

Id e,a 


96 

Id h,b 


97 

Id h,c 




98 

Id h,d 




99 

Id h,e 


100 
Id h,h 


101 
Id h,l 


102 

Id h,(hl) 


103 
Id h,a 


104 
Id l,b 


105 
Id l,c 




106 
Id l,d 




107 
Id l,e 


108 
Id l,h 


109 
Id 1,1 


110 

Id l,(hl) 


111 
Id l,a 


112 
Id. (hi) 


113 
,b Id (hi) 


,c 


114 

Id (hi), 


d 


115 

Id (hi), 


116 
e Id (hl),h 


117 

Id (hl),l 


118 
halt 


119 

Id (hi), a 


120 
Id a,b 


121 
Id a,c 




122 
Id a,d 




123 
Id a,e 


124 
Id a,h 


125 

Id a,l 


126 

Id a, (hi) 


127 
Id a, a 


128 
add b 


129 
add c 




130 
add d 




131 
add e 


132 
add h 


133 
add 1 


134 

add (hi) 


135 
add a 


136 
adc b 


137 
adc c 




138 
adc d 




139 
adc e 


140 
adc h 


141 
adc 1 


142 

adc (hi) 


143 
adc a 



oriented. Since PEEK and POKE 
work with decimal arguments, why 
not the disassembler? 

The commands which the 
command processor (lines 40 
through 70) recognizes are as follow 
(note that CR stands for Carriage 
Return, or the ENTER key on the 
Model 100): 

nnn CR Where nnn is a number 
from to 255. This causes the 
number entered to be POKEd into 
RAM at the location being 
examined. 

DR Just a carriage return causes 
the next higher memory location to 
be examined. 

h CR This causes the memory 
being examined to be interpreted as 
the high byte of a two-byte 16-bit 
number. The low byte is the previous 
memory location. These two bytes 
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are interpreted as a 16-bit, unsigned 
number whose value is from to 
65535, inclusive. This value is 
printed out and the next higher 
location is examined. 

j CR When you ask for a 
disassembly of a memory location, 
the result may be a jump (JP), call 
(CALL), or restart (RST). Many of 
the jump and call instructions are 
conditional, which means you must 
decide whether or not you want to 
make the jump to see what the code 
is doing at the jump target. To make 
the jump, you type j CR and you will 
see the memory examined at the 
target of the jump. The j CR 
command automatically stores the 
return location, so when you come to 
the end of the call, you may return 
from whence you came. 

r CR After you have jumped (for 



144 


145 


146 




147 


148 






149 


150 


151 


eub b 


sub c 


sub d 




sub e 


sub h 






sub 1 


sub (hi) 


sub a 


152 


153 


154 




155 


156 






157 


158 


159 


sbc b 


sbc c 


sbc d 




sbc e 


sbc h 






sbc 1 


sbc (hi) 


sbc a 


160 


161 


162 




163 


164 






165 


166 


167 


and b 


and c 


and d 




and e 


and h 






and 1 


and (hi) 


and a 


168 


169 


170 




171 


172 






173 


174 


175 


xor b 


xor c 


xor d 




xor e 


xor h 






xor 1 


xor (hi) 


xor a 


176 


177 


178 




179 


180 






181 


182 


183 


or b 


or c 


or d 




or e 


or h 






or 1 


or (hi) 


or a 


184 


185 


186 




187 


188 






189 


190 


191 


cp b 


cp c 


cp d 




cp e 


cp h 






cp 1 


cp (hi) 


cp a 


192 


193 


194 




195 


196 






197 


198 


199 


ret nz 


pop be 


OP nz. 


nn 


OP nn 


call 


nz 


, nn 


push be 


add n 


rat 


200 


201 


202 




203 


204 






205 


206 


207 


ret z 


ret 


]p z,nn 


illeg 


call 


z> 


nn 


call nn 


adc n 


rst 8 


208 


209 


210 




211 


212 






213 


214 


215 


ret nc 


pop de 


DP nc 


nn 


out n 


call 


nc 


,nn 


push de 


sub n 


rst 16 


216 


217 


218 




219 


220 






221 


222 


223 


ret c 


illeg 


jp c,nn 


in n 


call 


c. 


nn 


illeg 


sbc n 


rst 24 


224 


225 


226 




227 


228 






229 


230 


231 


ret po 


pop hi 


OP Po 


nn 


ex (sp),hl 


call 


po 


,nn 


push hi 


and n 


rst 32 


232 


233 


234 




235 


236 






237 


238 


239 


ret pe 


jp (hi) 


OP Pe 


nn 


ex de,hl 


call 


pe 


,nn 


illeg 


xor n 


rst 40 


240 


241 


242 




243 


244 






245 


246 


247 


ret p 


pop af 


OP P.nn 


di 


call 


P. 


nn 


push af 


or n 


rst 48 


248 


249 


250 




251 


252 






253 


254 


255 


ret a 


Id ap,hl 


jp a,nn 


ei 


call 


a. 


nn 


illeg 


cp n 


rst 56 



The numbers above each mnemonic are the op codes in decimal, "n" is a byte 
operand from to 255, inclusive, "nn" is a two-byte operand (low byte for 
lower address, high byte for higher address) from to 65535, inclusive. 
Parentheses mean "the contents of." For example, Id hl,(nn) means the 
contents of memory location nn are loaded into register 1 and the contents of 
memory location nn+1 are loaded into register h. Operators with two 
operands cause data to be moved from right to left, e.g., Id c,d causes the value 
in the d register to be copied into the c register. 
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USCF rated 
1793/5* 



SFINKS 4.0 

with user friendly features 

Second Kissimmee Open Rd 2 
White: Sfinks 4.0 Black: Human 1830 



Black 

c7-c5 
d7-d6 
c5-d4 
c8-d7 



White 

1. e2-e4 

2. g1-f3 

3. d2-d4 

4. f1-b5+ 

5. b5-d7+ d8-d7 

6. f3-d4 g8-f6 

7. b1-c3 

8. e1-g1 

9. c1-e3 

10. d1-d3 

11. c3-d5 

12. d5-b6 

13. b6-a8 

14. f2-f3 

15. f1-d1 

16. c2-c3 



g7-g6 

f8-g7 

e8-g8 

a7-a6 

b7-b5? 

d7-b7 

b7-a8 

b8-d7 

f8-c8 

a8-b7 



White 

17. d4-e2 

18. d3-c2 

19. e3-f2 

20. c2-b3 

21. d1-d4! 

22. c3-b4 

23. a1-d! 

24. d-c8+ 

25. b3-c4 

26. c4-b4 

27. b4-b8+ f6-e8 

28. d4-c4 a7-c6 

29. b8-a8 

30. c4-'c8 

31. a2-a4 

32. c8-d8! 



Black 

d7-e5 
e5-c4 
b5-b4 
a6-a5 
b7-b5 
a5-b4 
c4-b6 
b6-c8 
b5-d7 
c8-a7 



c6-e5 
g8-f8 
e5-d3 
resigns 






m MM± 



ill Bill II 
mm. m^W^m. 



b c d e f g h 



SFINKS 4.0 CHESS, 48 K, disk 
only. Only $49.95. Please specify 
Model I, III or IV. 

SFINKS 3.0 CHESS, 32K, disk or 
tape. Only $34.95. Please specify 
Model I (E.I.), III or IV. 

SFINKS CHESS TUTOR, 32K disk 
only. Only $19.95. Please specify 
Model I, III or IV. 

To order, please see your dealer or 
send check plus $2.00 shipping to: 

WILLIAM FINK 

11 OS N. Main St., Suite 24-B 

Gainesville, FL 32601 

or call (904) 377-4847 
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Florida residents add 5% sales tax. 
"On Model 3 w/speedup by Holmes Eng. 
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TOLL FREE ORDER LINE 
1-800-2 B2 

ORDERS ONLY 

New York Orders & information 

Cai! (212) 445-7124 



mas eo 

Acctg System 

Integrated G/L, A/R, A/P & Ck Reg. 
Retai I $599.00 OUR PRICE $499.00 

Overview — $5.00 Credited on Purchase 



DATAWRITER MDL I or III 

COPYART II MDL I or Ml 

MULTIDOS MDL I or III 

LAZYWRITER MDL l/lll or IV 

SUPERUTILITY + Ver3,1 


124.95 
129.95 

89.95 
139.95 

59.95 


NEW SCRIPT 7.1 


109.95 


DOSPLUS Ver 3.5 MDL I or Ml . 

DOSPLUSII MDL II 


119.95 
199.95 


LDOS MDL I or III 


114.95 


MZALREL. Ill MDL I or III 


84.95 


D0TWRITER3.0 


69.95 


ELECTRIC WEBSTER w/corr 
MAXICRAS MDL l/lll 


129.95 
79.95 


MAXI MGR. B.O. MDL l/lll 
ZORLOF MDL I or III 


99.95 
64.95 



LNW ©O Wlodel !i 

With Software Bonanza! 

Includes: LNW Accounting Series ■ G/L, A/P, A/R & 
Payroll, Electric Spread Sheet, Electric Pencil, Micro- 
term, Chart-ex, CPM 2,2, DOSPLUS & LNW Basic. 
RETAIL$1995 OUR P RICE $1695. 00 

LNW SYSTEM EXPANSION II 349.95 

LNW 5/8 DOUBLER 169.95 

RIBBONS 

ZIP BOX RELOADS Vz Doz. Doz. 

Epson MX 70/80-20 Yds. 24.00 42.00 

Epson MX 100-30 Yds 30.00 52.00 

NEC/Prowriter-14 Yds 21.00 36.00 

Centronics 730/737/739/779 or 

LP-l/ll/IV-16 Yds 18.00 32.00 

All ZIP BOXES are individually sealed black 
rewinding Epson Reloads also available in red, 
purple Any mix allowed 

CARTRIDGES 

Epson MX70/80 

Epson MX100 

Prowriter 8510 & NEC 8023A 

RS LP lll/V 

RS LP VI/VIII 

RS DSY WH II or DWP410 

RS DSY WH II - Nylon 

MICROLINE 80/82A/83A/92 

MICROLINE84 V 2 x 40 Yds 

ANADEK - 9000 Series 

Diablo Hytype Il-Multi Strike 

Qume-Multi Strike 

NEC-5500/7700-Multi Strike 

Centronic 703/04/53 

Note: All cartridges black only 
Minimum order 3 cartridges - any mix. For smaller quan- 
tities, add $1.50 per order. All our reloads and cartridges 
are manufactured by one of the oldest and most 
reputable ribbon manufacturers in the country 
—QUALITY GUARANTEED— 

ORDERING INFORMATION 

COD Orders add $2.00 Minimum credit card order $25.00 
FREE shipping on all COD and prepaid cash orders within the 
continental 48 states via UPS Ground Actual shipping and in- 
surance charges apply on all credit card orders, approved 
P/0's and shipments outside the continental 48 states Cer- 
tified Ck, M/0, COD and credit cards shipped immediately 
Please allow 2 weeks for personal checks Credit card orders 
shipped to card address only Prices subject to change 
without notice New York State residents please add ap- 
propriate sales tax 

Mioro Images 

Industries Inc. 

164-06 Crocheron Ave., Dept. B 
Flushing, N.Y. 11358 

(212)445-7124 *n 

M^;HOURS:Mon-Thurs,10AM-6PM 
m Fri. & Sat. 10AM-5PM 



nylon and 


require no 


blue, brown, green & 


Each 


Doz. 


7.00 


70.00 


12.00 


125.00 


7.50 


80.00 


6.50 


70.00 


6.50 


65.00 


6.50 


70.00 


6.50 


70.00 


N/A 


30.00 


5.50 


60.00 


13.00 


135.00 


6.50 


65.00 


5.00 


50.00 


7.00 


70.00 


11.00 


120.00 



Disassembler 

example, to a call routine), you may 
want to jump back again from 
whence you came. For example, 
when you come to the end of your 
call subroutine, the final command 
is a ret. Pressing the r CR keys will 
cause you to return. 

m CR m is for minus. This allows 
you to examine the preceding 
memory address. Repeated pressing 
of m CR will allow you to walk 
backward through memory. 

a CR a will prompt you for a new 
address. Respond to the prompt with 
a number from to 65535 and you 
will display the contents of this 
memory location. 

d CR d is for disassemble. This 
causes the memory location being 
examined to be treated as an op code 
and to be disassembled. Op codes are 
either one, two, or three bytes long, 
and the disassembly will 
automatically advance to the next 
op code. It shows the operand in the 
case of a two- or three-byte op code in 
the mnemonic style of Zilog with the 
exception previously noted. 

p CR p is for print. This causes the 
memory examined to be disas- 
sembled and printed on the printer. 
Disassembly will continue 
automatically until an instruction is 
reached which may cause a jump, 
such as: call c,nn ; ret po ; rst 8 ; etc. 
When an instruction is disas- 
sembled which may result in an out- 
of-line jump in the actual execution 
of the code when run on the 
machine, the printout stops and a 
message is displayed, asking for 
your command to continue printing, 
jump and continue printing, return 
and continue printing, or quit 
automatic printing mode. 

The structure of the disassembly 
part of the program is largely 
determined by the op codes 
themselves. The structure of the 
BASIC program makes use of line 
numbers to highlight its modular 
nature. Renumbering would make it 
harder to understand. 

The disassembly is structured as a 
subroutine 400. It is called from line 
60 when the user is desiring 
disassembly output to the display, 
and from line 520 when the 
automatic printout has been 
selected. 

Op codes from 64 to 191 are very 
algorithmic and are disassembled 
by the lines 1000 to 1020. You will see 



this regularity mirrored in the op 
codes provided in Table 1. 

Disassembly of the column of 
eight op codes starting with is 
handled by line 2000. The column 
whose eight op codes start with 1 is 
disassembled by lines 2100 through 
2130. The column whose eight op 
codes start with 2 is disassembled by 
lines 2200 through 2250, etc. 

Disassembly of the column of 
eight op codes starting with 192 is 
handled by line 3000. The column 
whose eight op codes start with 193 
is handled by lines 3100 through 
3210. The column whose op codes 
start with 194 is handled by lines 
3200 through 3210, etc. 

When in the disassembly mode of 
the program, not every memory 
location is shown in decimal; those 
op codes that expect either a one- 
byte, or a two-byte operand are 
interpreted and listed as part of the 
mnemonic, and the program counter 
is automatically set to the next op 
code. 

Lines 15, 17; 22, 24; and 900 to 934 
specify the strings required and read 
this data into the appropriate string 
variables. Lines 30 to 110 form the 
command interpreter and can be 
considered to be the "main" part of 
the program. The program forces 
you to be in the lowercase mode. If 
you don't like this, you can change it 
by changing lines 50 through 70 
from lowercase to uppercase, or 
both, if you desire. 

The printing is structured so that 
printing to any device (line printer, 
com, filename, cas) can be 
accomplished just by changing line 
502. The program as written is for 
the line printer, but changing line 
502 to the device desired allows 
output to go wherever you specify. 

References: Mostek Corp., 1215 W. 
Crosby Rd., Carrollton, TX 75006, 
"Z80 Programming Manual, "publi- 
cation number MK 78515. Intel 
Corp., 3065 Bowers Ave., Santa 
Clara, CA 95051, "8080/8085 
Assembly Language Program- 
ming," manual order number 
9800940. 



Program Listing 

1 'filename is peekl.do 

2 ' COPYRIGHT 1983 BY JOSEPH L.HARTMANN, 
JR. 
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5 PRINT" caps lock off" 

10 INPUT"st.adr=";A 

12 0PEN"LCD:"P0R0UTPOTAS1 

15 DATA"b" , "c" , "d" , "e" , "h" , "1" , " (hi ) 

","a" 

17 PORI=0TO7:READC$(I):NEXT 

20 CLS 

22 DATA" add"," adc"," sub"," sbc"," 

and"," xor"," or"," cp" 

24 PORI=0TO7jREADD$(1):NEXT 

25 GOSUB900 
30 GOSUB330 

40 B$=INKEY$:IFB$=""THEN40 

42 IFASC(B$)>47ANnASC(B?)<58THEN150 

45 IFB$=CHR$(13)GOTO90 

50 IFB$="h"GOTO200 

55 IFB$="j , 'THMA=H:PRIOT:Rft=R:Ga]X)30 

57 IFB$="m"THENA=A-lsPRINT:GOTO30 

60 IFB$="d"THENGOSUB400 

61 IFB$="a"THEN INPUT"enter new 
address" ; AsGOTO30 

65 IFB$="r"THEWA=RR:PRlOT:GOTO30 

70 IFB?="p"THEN GOTO500 

90 A=A+1: PRINT 

110 GOTO30 

150 B1$=B$ 

155 B?=INKEY?8lFB$== MM THM155 

160 IFASC(B$)=13THENP0KEA,VAL,(B1$) 

8PRINT:GOTO30 

165 Bl$=RIGHT$(Bl$+B?,3)sGar0155 

200 GOSUB300 

210 PRINTTAB(2)H;:GarO90 

300 H=256*PEEK(A)+PEEK(A-l)s RETURN 

330 PRINT#1,"( 

"; 8PRINT#1,USING"#####";A; sPRINTtl, ") 

="; 8 PRINTtl, USING"ttt"?PEEK(A); 8 RETURN 

400 PRINTtl," :";«D=PEEK(A):IFD>63ANDD 

<192GOTO1000 

410 IFD<64THEN1100 

420 I=0:D=Drl92 

430 IF(D-l)MOD8=0THENONI+ 

1GOTO3000, 3100,3200,3300, 3400, 3500,3600, 

3700 

440 1=1+1 :GOTO430 

500 PRINTsCLOSEl 

502 ' OPEN"LPTs"FOR OUTPUT AS 1 

503 OPEN"coms57ile"FOR CXJTPUT AS 1 
505 PRINTtl, 

510 GOSUB 330 

515 OP=PEEK(A) iOA=A 

520 GOSUB 400 

525 GOSUB700 

530 A=A+1 sPRINTtl, 

540 GOTO510 

700 IFOP<192THENRETURN 

710 

IFOP=201OPDP=195OROP=233OROP=205THEiraOTO 

800 

720 IF(OP-192)MOD8=0THEN800 

730 IF(OP-194)MOD8=0THEW800 

740 IF(OP-196)MOD8=«THEN800 

750 IF(OP-199)MOD8=0THEN300 

760 RETURN 

800 PRINTtl, 

805 CL0SE1 

810 OPEN"LCD!"FOR OUTPUT AS 1 

815 A=OA 

820 GOSUB330 

830 GOSUB 400 

840 

PRINT:B$="":INPUT M r=RET,j<JMP,o=CX)NT,q==Q 

UIT";B$ 

850 IFB?="c"THENLETA=A+l:GOTO500 

860 IFB$="j"THEHA=fl:RR=RsGOTO500 

870 IFB$="r"THEMA=RR!GOTO500 

880 IFB$="q"THEN30 

890 GOTO840 

900 

DATA"nz", "z", "nc", "c", "po", "pe", "p", "m" 

902 FORI=0TO7sREADE$(l)8NEXT 

904 nATA"bc","de","hl","sp" 

906 FORI=0TO3:READF$(l)sNEXT 

908 DATA" (be), a", "a, (be)", "(de), a", "a, ( 

de)" 

910 FORI=0TO3:READG$(I):NEXT 

912 DATA"rlca° , "rrca" , " rla"," rra"," 

daa"," cpl"," scf," ccf" 

914 FORI=0TO7!READI$(l)sNEXT 



916 DATA" nop", M illeg","illeg","illeg", M 

rim","illeg", M sim","illeg" 

918 FORI=0TO7:READJ$(l)sNEXT 

920 DATA"push be", "call", "push 

de", "illeg", "push hi", "illeg", "push 

af","illeg" 

922 FORI=0TO7:READK?(l)sNEXT 

924 DATA" jp", "illeg"," out"," in"," 

ex (sp),hl", u ex de,hl"," di", M ei" 

926 FORI=0TO7;READM$(I):NEXT 

928 DATA" pop be"," ret"," pop 

de", "illeg"," pop hi"," jp (hi)"," pop 
af"," id sp,hl" 

929 FORl=0TO7:READL$(l)sNEXT 

930 DATA" dec"," inc"," ret", "call"," 
rst" 

932 FORI=0TO4:RFADH$(I):NEXT 

934 RETURN 

1000 IFD>127THEN1020 

1005 IFD=1 18THENPRINT#1, "halt" ;s RETURN 

1010 PRINTtl," Id ";!D=D-64:F=INT(D/8 

) jE=DMOD8sPRINTtl,C$(F) 

; :PRINT#1, ", "? s PRINTtl, C$(E) ; :RETURN 

1020 D=D-128:F=INT(D/8):E=D 

M0D8:PRIOTtl,D!?(F) ; sPRINTtl, " 

"; sPRINTtl, C$(E); sRETURN 

1100 1=0 

1110 IF(D-I)MOD8=0THENONI+ 

1GOTO2000 , 2100 , 2200 , 2300 , 2400 , 2500 , 2600 , 

2700 

1120 1=1+1 sGOTOl 110 

2000 E=INT(D/8)sPRINTtl,J$(E);:RETURN 

2100 D=D-l:E=INT(D/8)sIFEMOD2=0THEN2120 

2110 PRINTtl," ";D$(0);" ";F$(2);",";F$( 

(E-l)/2);sRETURN 

2120 PRINTtl," Id ";F$(E/2);",";sA=A+ 

2:GOSUB300 

2130 PRINTtl, HjsRETURN 

2200 D=D-2:E=INT(D/8)sIFE>3THEN2220 

2210 PRINTtl," Id " } G$(E);s RETURN 

2220 A=A+2:GOSUB300 

2230 PRINTtl," Id ";:IFE=4 OR 

E=6THENPRINTt 1 , " ( " ; H ; " ) 

, " ; : IFE=4THENPRINTt 1 , F? ( 2 ) 

; : RETURNELSEPRINTtl , "a" j : RETURN 

2240 IFE=5THENPRINTtl,"hl,(";H;") 

";sRETURN 

2250 IFE=7THENPRINTtl,"a,(";H;") 

";:RETURN 

2300 D=D-3:E=INT(D/8)sIFEMOD2=01HEN2320 

2310 PRINTtl, H$(0);" "; sPRINTtl, F$( (E-l) 

/2);sRETURN 

2320 PRINTtl, H$(l); u "; sPRINTtl, F$(E/2) 

;s RETURN 

2400 D=D-4sE=INT(D/8)sI=l 

2410 PRINTtl,H$(l);" "; sPRINTtl, C$(E) 

;sRETURN 

2500 D=D-5sE=INT(D/8)sI=0sGOTO2410 

2600 D=D-6sE=INT(D/8) sPRINTtl," Id 

" j sPRINTtl, C$(E) 

? sPRINTtl,","; sPRINTtl, PEEK(A+1); sA=A+ 

lsRETURN 

2700 D=D-7sE=INT(D/8)sPRINrtl,I$(E) 

;s RETURN 

3000 PRINTtl, H$ (2);" "j sPRINTtl, E$(INT(D 

/8));:RETURN 

3100 D=D-1 sE=INT(D/8) s PRINTtl, L$(E) 

jsRETURN 

3200 D=D-2s PRINTtl, M?(0);" u ? sPRINTtl, E$ 

(lNT(D/8) ) ; " , "; sA=A+2sGOSUB300 

3210 PRINTtl, H;sR=A+l s RETURN 

3300 D=D-38E=INT(D/8) sPRINTtl, M?(E); 

3310 IFE=20RB=3THENPRINTtl," 

"; sPRINTtl, PEEK(A+1); sA=A+lsRETURN 

3320 IFE<>0THENPRINT#l,;s RETURN 

3330 PRINTtl," ";sA=A+2sGOSUB300 

3340 PRINTtl, H; s R=A+ls RETURN 

3400 PRINTtl, H$(3)j" "} sPRINTtl, E$ (INT( ( 

D-4)/8) ) ; sA=A+28GOSUB300 

3410 PRINTtl, ",";H;8R=A+lsRETURN 

3500 PRINTtl,K?(lNT(D-5)/8);8lFINT(((D-5 

)/8) ) oiTHENPRINTtl, ; sRETURN 

3510 PRINTtl," ";sA=A+25GOSUB300 

3520 PRINTtl, H;sR=A+l s RETURN 

3600 PRINTtl,D$(lNT((D-6)/8));" 

"; s PRINTtl, PEEK(Afl); sA=A+lsRETURN 

3700 PRINTtl,H$(4);sH=INT((D-7)/8)* 

8sPRINTtl,H; s R=A+1 s RETURN 



you get what you 

thought those 

"CALC" programs 

would give you: 

easy to use 

simple and logical 

totals by item and category 

every category named 

built-in sorts 

clear documentation 
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Customers told us: 

"Looks like just what I need to keep 
track oi Income & Expenses in my 
Real Estate appraisal business." 

(I.E.) 

"Just what we need for In-house 
Budgets." (N. Ariz. Univ.) 

"TALLYMASTER" is everything you 
advertised and more. I'm having a 
lot of fun learning the features." 

(l.C.) 

"Well-packaged, clear instructions, 
easy to use." (G.L.G.) 

And. '80 MICEO gave II a Five Stair 
review: "I recommend Tallymaster to 
every user who wants a good, easy, 
accurate bookkeeping system, and to 
anyone interested in home or small 
business budgeting and 
bookkeeping." (July, 1983) 



All this for only sp/yLyQ 

(TRS-80 Models I, III, 48K, disk) 



1 Also available for IBM PC: 

128K, disk. Has Function Key support and 
an even faster sort. 
Special price: $99.95 

ORDER NOW, TOLL-FREE 
|800) 824=7888, ©per, 577 



#18 JPJ 

Dept. B Box 560, No. Hollywood, CA 91603 
(213) 764-3131 Information and Same-Day Processing 

TERMS VISA, MC, checks, COD. Please add $2 00 shipping 
in US or Canada, $5 00 overseas, sales tax in Ca. 
Most orders filled within one day 
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THE TANDY TRS-80 MODEL 




The New Ultra-High Performance 
MS-DOS System from Rpdio Shack 

Our remarkable Tandy Model 2000 delivers much 
more than other 16-bit MS-DOS based computers. 
More speed. More disk storage. More expansion. 
Higher resolution graphics. But that's not all. You 
get the quality and support that have kept Tandy 
Corporation in the forefront of the microcomputer 
industry from the beginning. 

Higher-Speed 16-Bit CPU 

Model 2000 is dramatically faster than other 16-bit 
MS-DOS computers. Jn actual benchmark compari- 
sons, the Model 2000 performed almost three 
times faster than the IBM® Personal Computer. 
That means all the applications software runs 
faster, so you get the job done quicker. 

Increased Storage Capacity 

Each of the two Model 2000 disk drives 
stores over four times as much informa- 
tion as a standard IBM PC drive, and 
twice as much as a Tl® Professional 
drive. If you need even more storage, 
choose our Model 2000 HD with a 
built-in hard disk. 

Get a Better Picture of Things 

Model 2000 video monitors and graph- 
ics options let you easily create stun- 
ning, highly-detailed business charts 
and graphs. Our color graphics have 
twice the resolution of the COMPAQ™ 
Portable or IBM PC color graphics, 
and twice the number of colors. 



Compare the Model 2000 
to the IBM Personal Computer 



TRS-80 Model 2000 With 



Two 



Drives 



TRS-80 Model 2000 HD With 
Built-in 10-Megabyte Hard Disk 



2750 



ft I 



4250 



I ft 



Commerical Lease Available 

For Only $95 Per Month 

(Plus Applicable Use/Sales Tax) 



Commercial Lease Available 

For Only $150 Per Month 

(Plus Applicable Use/Sales Tax) 



Monitor, graphics, Floor stand, Pedestal and Digi ,M -Mouse not included 



Price Comparison 1 


Tandy Model 2000 


IBM Personal Computer 


Base Unit 


$2750 * 


$2104 


2nd Drive 


Included (720K) 


£529 (320K) 


Monochrome Monitor 


$249 


$345 


Display/Printer Adapter 


Included 


$335 


12BK RAM 


Included 


£165 


R5-232 


Included 


$120 


MS-DOS 2.0 


Included 


$60 


Total Cost* 


$2999 


$3656 " 


Feature Description 


Tandy Model 2000 


IBM Personal Computer 


Internal Memory 


1?8K 

Standard 


64K 
Standard 


Disk Capacity 
Per Drive 


* 720K 


l60Kor 
320K (optional) 


Microprocessor 
Clock Speed 


8 MHz 


4.7 MHz 


True 16-Bit 

Microprocessor 


Yes (80186) 

16 bit/16 bit data path 


No racm, 

16biW8 bit data path 


User-Available 
Expansion Slots* 


4 


2 


Grapics Options 






Color Resolution 


640 x 400 


320 x 200 


Number of Colors 


8 


4 


Monochrome Resolution 


640x400 


640 x 200 


•Comparable IBM configuration will 


1 monochrome adaoler and Hi' 


inlay rnmmiiniratinrc aH-mt^r fiwn 



2000 PERSONAL COMPUTER 



Model 2000 Adds a New Dimension to the 
Most Advanced MS-DOS Software Around 



CommuniciliDni 



Personal 



Programming 
Languages 



AtcGunhng --____ 



G r ap h tc s 
Filing 



PFS Graph — 



PFS: Fill 
PFS; Report 



Horne Ace nuniarll 

Games 

Videotex _ 

Baste Four _ 

Accounting 




Spreadsheet s 



-___ Wend 

PrcKtSiing 



W JL^ — PfS Write 



MS-Assem bier 
MS-FORTRAN 
MS-PAscal Compiler 
> WS-GW BASIC Compiler 

"■ Microsoft Word 

COBOl 



dH^e rr 



MultlMale 



Choose From the Hottest Names In Software 

Rapidly becoming an industry standard, the MS-DOS 
operating system lets us bring you the most popu- 
lar programs around. Programs like dBase II™. ■ 
Microsoft-Multiplan™. PFS^File. MultiMate™. And many 
more already acclaimed by the entire microcomputer 
industry. The four software "wheels" above illustrate 
the outstanding programs available. Each "slice" in the 
top wheel represents typical applications — electronic 
filing, word processing, spreadsheets, communications 
and more. The corresponding slices on the lower 
wheels portray the programs available for each applica- 
tion family. For example, we have an excellent line of 
small business accounting software from MAI/Basic 
Four" — general ledger, accounts payable, accounts re- 
ceivable and more. These flexible programs have al- 
ready been proven in thousands of applications 
worldwide. More programs are under development, in- 
cluding Microsoft's state-of-the-art MS-Windows operat- 
ing environment. You can view several "windows" at 
once — files, letters, graphs and more — and exchange 
information between them. 





The biggest name in little computers 

A DIVISION OF TANDY CORPORATION 






Room to Grow for the Future 

Model 2000 has many standard features that cost extra 
on other computers. Aside from obvious cost advan- 
tages, that leaves more expansion slots open for your 
future needs. Add additional memory, a hard disk drive. 
our Digi™-Mouse and more. And you can install most 
options yourself. 

A Milestone in Ergonomic Design 

Model 2000 is as spectacular outside as it is inside. 
The attractive modular system adapts to your environ- 
ment to assure maximum comfort and productivity. 
With the optional floor stand, Model 2000 occupies 
much less desk space than other personal computers. 

Total Service and Support is Close at Hand 

Our extensive network of Radio Shack Computer Cen- 
ters gives you complete hardware and software sup- 
port directly from the manufacturer, not an independent 
computer dealer. On-site and carry-in service is availa- 
ble nationwide. 

The Future of Personal Computing 

See the TRS-80 Model 2000 and its popular line of soft- 
ware today at over 1000 Radio Shack Computer Cen- 
ters nationwide. Ask for a hands-on demonstration and 
you'll never want to let go. 
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Send me the TRS-80 Model 2000 brochure. 



I Mail To: Radio Shack, Dept. 84-A-595 

I 300 One Tandy Center, Fort Worth, Texas 76102 



NAME 



1 



COMPANY 



ADDRESS 



CITY 



STATE 



Z P 



TELEPHONE 



l_ 



J 



Prices apply at participating Radio Shack stores and dealers. MS and Microsoft are registered trademarks of Microsoft Corp. IBM is a registered tradema-k of Inter 
national Business Machines Corp. Tl is a registered trademark of Texas Instruments, Inc. COMPAQ ia a trademark of COMPAQ Computer Corp. PFS is a reg-stered 
trademark of Software Publishing. Multiplan is a trademark of Microsoft Corp. MultiMate is a trademark of Softword Systems Inc. dBase II is a trademark of Ashtor 
Tate. MAI/Basic Four is a trademark of Management Assistance. Inc. The Home Accountant Plus is a trademark of Continental Software. 
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Answers to readers 7 questions about Scripsit, 

SuperScripsit and printers 



Models 1/111/4,1 



Thomas L. Quindry, Contributing editor 



My patch to Scripsit for the Smith 
Corona TP-1 printer in the August- 
1983 issue of Basic Computing 
received some helpful responses 
which I will pass on to you. To 
refresh your memory, the TP-1 will 
not recognize two consecutive 
linefeeds. One of them will be 
ignored. I gave a patch for Scripsit to 
get around this. First of all, for the 
Model III, the addresses I gave for 
CD3B00 in Model III Scripsit were 
off by one byte. They should be 
606BH and 6073H. 

Scott Stallings of Memphis, TN 
points out a much simpler, though 
partial, solution for those who don't 
need automatic double linefeeds and 
don't want to program the patch. 
Scott suggests that if you send an 
unprintable character before the 
extra linefeed, the linefeed will be 
recognized. Since the TP-1 print- 
wheels do not have the greater than 
(>) or less than (<) symbols, either of 
these can be placed before the extra 
linefeed. Since Scripsit uses the 
greater than symbol for format 
instructions, it is best to use the less 
than symbol. To get double 
linefeeds, add in your text enter 
enter. 

Don Eberly of Elliott, IL was 
inspired to write a somewhat more 
efficient patch for the Model III tape 
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Scripsit, Version 1.0. 1 haven't tried 
his patch, but it should do the job. In 
fact, a close analysis of my original 
TP-1 patch would indicate that it 
shouldn't work. I am assured that it 
does, however, by the person I 
collaborated with to write it. Don's 
patch could be easily adapted to any 
version as mine could. Just follow 
the directions I gave in the August 
issue and change ORG addresses. 

I use the Model III version of 
Superscripsit at the office and the 
Model I version at home. Because of 
limited disk storage space for text, I 
added the Radio Shack doubler to 
my Model I. The Model I version of 
Superscripsit can be copied to double 
density using the TRSDOS 2.7DD 
format but cannot operate with this 
DOS. I am very interested in ideas 
for adapting either Superscripsit or 
the disk operating system for use 
with my Model I. For instance, can 
TRSDOS 2.3 be modified for double 
density with the Radio Shack 
doubler and would it support 
SuperScripsit? 

— W.B., Reisterstown, MD 

The Radio Shack doubler is not 
like any other doubler for the Model 
I. This doubler has given fits to most 
pre-Radio Shack doubler operating 
systems due to its oddball design. 
TRSDOS 2.7DD, which is supplied 
with it, is neither TRSDOS 2.3 nor 



TRSDOS 1.3 compatible. If you took 
those two DOS's for the Model I and 
III respectively, mixed them up, and 
took bits and pieces out at random 
for different functions, you would be 
likely to come up with TRSDOS 
2.7DD. Unfortunately, it is not 
compatible with many of the more 
popular Radio Shack programs (or 
other machine language programs 
for that matter) including Scripsit or 
SuperScripsit. 

TRSDOS 2.3 has been successful- 
ly patched for other Model I doublers 
but I don't think it can be patched 
easily for the Radio Shack doubler. 
Though other DOS's may be 
compatible with this doubler, the 
only one I am sure about is the 
current version of LDOS. LDOS 5.x 
also provides patches to provide 
compatibility between it and 
SuperScripsit. LDOS would be a 
good choice for you because I believe 
it should also provide compatibility 
of data files (or Superscripsit files) 
between the Model I and Model III 
and you have access to both. 

/ am using a Model III with an 
Epson RX-80. While doing a 
formfeed in BASIC, the paper 
advances one line at a time in a jerky 
motion instead of one smooth 
movement. Using OUT 251,12 
(POKE 14323,12 on the Model I 
instead of LPRINT CHR$(12); 



seems to correct this problem, but is 
there a fix when using programs like 
Scripsit or Profile III Plus? 

-P.E., Green Bay, WI 

The reason LPRINT CHR$(12) 
causes this jerky motion on your RX- 
80 is because the Model I and III 
translate this command to multiple 
linefeeds (CHR$(10)'s) to take you to 
the top of form. This is a carry over 
when "dumb" printers didn't have 
the logic to do a formfeed. Many of 
today's printers including the Epson 
MX series, and I presume the RX 
series, recognize the ASCII 12 as 
well as ASCII 140 as formfeed. In 
BASIC, try LPRINT CHR$(140) to 
get a smooth formfeed. 

As for programs like Scripsit and 
Profile III Plus, if you can determine 
where in the code the ASCII 12 is 
sent to the printer, you can patch the 
program to send ASCII 140. 

Printers are getting smarter all 
the time. The new Riteman printer, 
an MX-80-compatible, by Info- 
runner, smooths out the multiple 
linefeeds in spite of what the 
computer sends it. This printer 
won't recognize the ASCII 140 as a 
formfeed, so try it out on your printer 
before you modify your programs. 

Both my printer and the Model III 
have the special characters, { \ } ~[ \ ] 

Listing 1 



BASIC bits 

^ _ . How can I use them with my 
word processor? 

—N. T., Los Angeles, CA 

To use these special characters, 
press the i and y keys or the I and Y 
keys down simultaneously. While 
holding them there, quickly press 
the k, 1, m, n, K, L, M, N, or O key. 
You will get something like yik {, 
yil |, yim }, yin ~ YIK [, YIL \, 
YIM ], YIN ^, or YIO _ respectively. 
The small i and y letters in 
combination with the k, 1, m, or n 
give you half of the special 
characters and using the uppercase 
lock, the capital I and Y in 
combination with the K, L, M, N, or 
O give you the others. Go back and 
edit out all but the special character. 
You may have to hit the last key 
more than once to get the special 
character. This can also be 
accomplished in BASIC. 

Remember to send your requests 
for future column topics, questions 
and tips to me, in care of Basic 
Computing, 3838 South Warner 
Street, Tacoma, WA 98409. Send a 
self-addressed, stamped envelope 
and I'll try to give you a personal, 
handwritten reply as long as the 
answer is not too long and involved. 
Problems of general interest may be 
included in future BASIC bits. 
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; #*#**#**************#***#************ **************** ^** 
;* * 

;* PATCHS PATCHES MOD III TAPE SCRIPSIT VER. 1.0 * 
5* FOR USE WITH SMITH CORONA TP-1 PRINTER * 



;* 

; * 



5 * 



*** DO NOT RUN SCRIPSIT *** 
LOAD SCRIPSIT, THEN LOAD THIS PATCH 

WRITTEN BY DON EBERLY AUGUST 1983 



; ******************************************************** 



; REPLACES CALLS TO ROM'S 
;*PRCHAR ROUTINE 



PATCH 



EXTRA 



PRINT 



FLAG 



ORG 


4EEFH 


CALL 


PATCH 


ORG 


4EF7H 


CALL 


PATCH 


ORG 


490AH 


PUSH 


HL 


LD 


HL,FLAG 


CP 


ODH 


JR 


Z, EXTRA 


RES 


O, <HL) 


JR 


PRINT 


BIT 


O, (HL) 


JR 


NZ, PRINT 


INC 


(HL) 


CALL 


003BH 


CALL 


003BH 


POP 


HL 


RET 




DEFB 





END 


4303H 



5 SAVE REGISTER 

jADDR OF FLAG 

5 CARRIAGE RETURN 

; CLEAR FLAG 

5 TEST FLAG 
5DONE BEFORE 
5SET FLAG 
; *PRCHAR 

5 RESTORE REGISTER 



; NORMAL SCRIPSIT START 



Integrated 

Word Processing and 

Spelling Correction with 



PEL-TEK'S 



"881 



hsne 3.0 + 



only $6 



i ® ® © ® ® 

INCLUDES... 



® • 



19 AN Word Machine 2.0 features _ Easiest 
to use Word Processor anywhere II Sup- 
ports unmodified Model I for lower-case 
_ On screen formatting — what you type 
is what prints on printer H Graphics mode 

- for TRS-80 block graphics ® Print 
multiple copies of your text H Embedded 
forms control — to skip lines, eject paper, 
etc. ■ Insert/delete characters, lines, files 

— anywhere in text ■ And more . . . 

PLUS 

H New Word Processing features . . . H 
New Pause features — allows entry of data 
into text line fields during printout (great 
for form letters!) _ Headers and Footers 

■ Page numbering H ASCII codes em- 
bedded for printer support U Embedded 
file retrieval during printout (called from 
text) allows printing a document of any 
virtual length H Integrates with the SPELL 
CHECK/CORRECT System M And more . . . 

PLUS 

m Integrated SPELL/CHECK CORRECT 
System . . . H Type "CHECK" in Word 
Machine Command Mode ■ 30,000 + 
word literal dictionary (on disk) is com- 
pared word for word to your text . . . ■ 
Misspelled words are shown in context 
with optional correction or ... ■ Expand 
your "Personal" Auxiliary Dictionary with 
selected words from your text H Returns 
to the Word Machine with your text loaded 
automatically after spelling corrections 
H No duplication of files like other Spell- 
ing Checkers. 

PLUS 

■ 100% Machine language speed — The 
included SPELL CHECK/CORRECT pro- 
grams may be used with files created by 
ANY Word Processor (except Super 
Scriptsit) II Manuals and Command Sum- 
maries . . . PLUS . . . M FREE . . . FREE 

. . . Pel-Tek's INDOOR SOCCER Arcade 
Game FREE with purchase of the Word 
Machine 3.0 Plus package!!! 

TO ORDER 

(Please specify Model I, III, or 4* Disk) 
Word Machine 3.0 Plus - Word Proces- 
sor and integrated Spell Check /Correct 

System Disk48K $65.00 

Word Machine 2.0 — Word Processor 

Disk32/48K $20.00 

Spell Check/Correct System — 

For use with any Word Processor (except 

Super Scriptsit) Disk 48K $50.00 

Postage & Handling per order $ 2.00 

•Mod 4 operates in Mod III mode 



PEL-TEK 

P.O. Box 1026 m Southampton, PA 18966 

Toll Free order line 1-800-523-2445 Ext 19 

In Penna. 1-800-346-7511 Ext 19 

Visa, MasterCharge. Check or Money Order 
accepted, or add $3.00 for Domestic COD 
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In the chips 

High-speed graphics 



Models 1/111/4, 



Spencer Hall, Associate editor 



The very best way to become 
acquainted with machine language, 
no doubt about it, is to copy well- 
annotated source programs into a 
computer. The copying process 
forces one to dwell for some time on 
each statement in a way that just 
doesn't come naturally when you're 
only reading. Good annotations, in 
the remarks column of the source 
code, clarify exactly what the source 
code is doing and why. You see ROM 
calls used. You see clever manipu- 
lations of the screen. You see 
multiple-use subroutine CALL's 
which can be copied and/or 
modified for your own use. Best of 
all, you soon lost that feeling of 
strangeness which surrounds source 
code the first few weeks you use it. 

Unfortunately, this approach 
requires a general familiarity with 
the hexadecimal system. The Z-80 
registers, and the use of an editor- 
assembler program. Fortunately, 
graduates of this series are well- 
armed with this information. For- 
tunately, also, there are several 
books available which contain the 
same material. We've already listed 
them in past columns, so for now, 
we'll mention just one more new 
reference. For our purposes, this is 
probably the best of all. William 
Barden, Jr., in his Radio Shack text, 
Programming Techniques for Level 
II BASIC, offers a brilliantly 
executed, slam-bam-fast introduc- 
tion to machine language concepts. 
It's contained in Chapter 11. 

One question in a thought- 
provoking letter from a reader didn't 
depend for its answer on past 
columns. I quote the entire 
paragraph because the rest of you 
will probably join in a chorus of 
agreement. 

"As I look at assembly language 
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source codes in Basic Computing, 
and in other magazines, I 
continually ask myself the same 
question: "Why?" And how does the 
author know what to do? Wish I 
could be as smart." 

The answer, of course, lies in the 
fact that machine language is only 
language, but a program is a product 
of the imagination. How does any 
author know what to write next? He 
has a purpose. What he writes next 
is the code which carries out 
that purpose. 

This month, we want to harness 
the incredible speed of machine 
language in order to provide a way 
for a BASIC program to display a 
graphic image (of any size) instan- 
taneously on the screen. We'll do it 
by writing a machine language 
program using EDTASM, compile 
it, embed it in our BASIC program in 
the form of DATA statements to be 
POKEd in place, and call it with 
USR. 

At the end of our machine 



Figure 1 — The club figure 
generated by Listing 2. 

12 3 4 5 6 7 8 
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language routine, we'll place a 
"buffer," or string of addresses, 
containing the bytes which make up 
the image. To determine these bytes, 
we'll draw our design on a sheet of 
cross-ruled paper like the video 
screen map which is contained in 
both the Level II and Model III 
manuals. We can find the codes for 
these bytes by using the graphics 
code list which is also printed in 
both TRS-80 manuals. 

For simplicity, we'll use all the 
bytes in a rectangle surrounding our 
image (Figure 1). We'll simply place 
them one after the other in our 
buffer. How can our machine 
language routine tell where to write 
them on the screen or how to arrange 
them? Let's pass the screen address 
integer to the subroutine by placing 
it in parentheses in the USR call, so: 
X=USR(SA) where SA is the 
PRINT@ address where we want the 
image. 

Also, let's decide (quite 
arbitrarily) that the first two bytes 
of our buffer will contain, 
respectively, the number of lines and 
the length of these lines in our image 
rectangle. For our test, we've drawn 
a playing card club. Next, using the 
graphics code list just mentioned, we 
decipher the byte values of each 
graphics character in this image. 
For now, we must write them down 
on scratch paper because we don't 
know where the end of our machine 
code will be in memory. The first 
byte in this buffer will be 3 and the 
next one 8, because we have three 
rows of eight characters each in our 
image. 

Now we can write our code using 
EDTASM. See Table 1 for comments 
on the code for Listing 1. 

To carry out our plan, we must 
make a poke version of this compiled 



Chips 



program. This is shown in Listing 2. 
We need to protect the subroutine or 
it will be clobbered by the BASIC 
operating system. The POKEs in 
line 5 do this. The numbered poked 
in LSB/MSB format is 28670. 
Always make this number two less 
than the starting address of what is 
protected. That's how BASIC does 
it. Next, we must tell BASIC where 
to go when it gets the USR call. The 
pokes in line 7 do this. Using Disk 
BASIC, these become either 
DEFUSR(28672) or DEFUSR 
(&H7000). 

Now we convert the compiled hex 
bytes from Listing 1 into decimal 
values and place them in DATA 
statements. Finally, the number of 
lines and the length of each are 
placed in DATA statements 
followed by the bytes of our image. 
The arrangement in Listing 2 was 
chosen for clarity. Actually, all 
bytes follow each other in memory, 
as indicated by the loop in line 90 
which delivers them. We know they 



start at 28672. The loop end at 28738 
was obtained by simply counting all 
DATA bytes and adding the total to 
28672. Don't forget to subtract one to 
allow for the fact that we're using 
both the first and last address! 

Note that we can put the code for 
any image we design right there in 
those DATA statements. Doing so 
makes this subroutine usable in any 
program, for any image, from one 
byte to a full screen. 

You can erase this entire program 
once you've run it and your image, 
plus the subroutine to display it, will 
still be there waiting for a USR call. 
Have fun by entering the code in 
Listings 3 and 4. Be sure, of course, 
that you first run Listing 2. 

Figure 2 is a screen print, actually 
a "self-portrait," made with the 
image maker. First, I listed part of 
our original BASIC program. After 
hitting the BREAK key and getting 
the READY prompt, I typed the 
command as you see it at the bottom 
of Figure 2 beginning "POKE 



Listing 1 



7000 

7000 E5 

7001 D5 

7002 C5 

7003 CD7P3A 

7006 EB 

7007 212970 

700A 7E 

700B 23 
700C 4E 
700D 0600 
700F 23 



7010 
7011 
7012 
7014 
7015 
7018 
7019 
701A 
701D 
701E 
701F 
7020 
7021 
7023 
7024 



C5 

D5 

EDB0 

3D 

GA2370 

Dl 

E5 

214000 

19 

EB 

El 

CI 

18ED 

El 

El 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 
00360 
00370 
00380 
00390 



a kkkkk 
« kkkkk 



START 



ORG 

PUSH 

PUSH 

PUSH 

CALL 

EX 

ID 



IMAGE MAKER 
In the Chips #10 
7000H 
HL 
DE 
BC 

0A7FH 
DE,HL 
HL, IMAGE 



***** 

***** 
Protect 28672 decimal 
Save registers we'll use 
. . .BASIC interpreter is 
probably using them. 
Get PRINT location in HL 
Move it into DE 
;Get start of image file 



The first byte in file is nutttoer of lines in image 

LD A, (HL) ;Number of lines into A 
The second byte is the number of bytes per line 
INC HL ;Next byte in file 

LD C, (HL) ;Put bytes per line in BC 
LD B,00H ;Make sure BC is only C 

INC HL ;HL at first image byte 

We're now ready to do an LDIR, but this will reduce 
BC to zero. We'll need it again. Also starting DE must 
be increased by 64 to get next line start. We'll save 
both of these on the stack. ...... 



WRITE 



7025 CI 

7026 Dl 

7027 El 

7028 C9 

7029 03 
7000 



00410 
00420 
00430 
00440 
00450 
00460 
00470 



EXIT 



00490 
00500 
00510 



IMAGE 



PUSH 


BC 


PUSH 


DE 


LDIR 




DEC 


A 


JP 


Z,EXIT 


POP 


DE 


PUSH 


HL 


LD 


HL,40H 


ADD 


HL,DE 


EX 


DE,HL 


POP 


HL 


POP 


BC 


JR 


WRITE 


POP 


HL 


POP 


HL 


POP 


BC 


POP 


DE 


POP 


HL 


RET 




DEFB 


3 


END 


START 



Write an image line 
One less line to go 
Done? If so, return 
First loc. of last line 
Must "borrow" HL 
64 to add to HL 
result is in HL 
New start is now in DE 
Text pointer back in HL 
Line length replaced 
Write another line 
Two dummy POP's to shift 
stack pointer to BASIC'S 
register contents. 
Replace them before we 
return control to BASIC 
so it can continue. 
Return to calling prog. 
Image file starts here 



SYSTEM DIAGNOSTIC 

Complete diagnostic tests for every com- 
ponent of your TRS-80™ Model 1, 3 or 4. 
Tests for ROM, RAM, Video Display, 
Keyboard, Line Printer, Cassette Recorder, 
Disk Drives, RS-232-C Interface. Individual 
tests or continuous testing mode. 
System Diagnostic $99.95 

TYPITALL 

The SCRIPSIT" Compatible Word Processor 
TYPITALL is a word processing program 
which is upward compatible with SCRIPSIT™ 
for the TRS-80™ Models 1, 3 and 4. TYPITALL 
includes features like these: Assign any 
sequence of keystrokes to a single control 
key. See the formatted text on the screen 
before printing. Send the formatted text to 
a disk file for later printing. Merge data 
from a disk file during printing. Send ANY 
control or graphic character to the printer. 
Use the same version on the Model 1 or 
Model 3. Reenter the program with all text 
intact if you accidentally exit without 
saving the text. 
TYPITALL (disk only) $1 29.95 

TRS-80™ MODEL lit 
ASSEMBLY LANGUAGE 

A complete course in assembly language, 
written for the beginner. Basic concepts, 
the Z-80 instruction set, complete Model 
III ROM and RAM information, program- 
ming examples, the disk controller, the 
TRSDOS 1.3 disk operating system, 
RS-232-C interface. 

With the book you can also purchase 
Monitor #5, a comprehensive machine 
language monitor (specify Model 1 or 3). 

Book only $16.95 

Book and Monitor #5 on disk $29.95 

SMART TERMINAL 

The intelligent terminal program, with 
automatic transmission and storage of data, 
true BREAK key, character translations, cas- 
sette and disk files compatible with SCRIP- 
SIT™ and Electric Pencil™. Same program 
supports both cassette and disk systems. 

Model 1, 3 or 4 $74.95 

Model 2/1 2/1 6 (CP/M) Version ... $79.95 

SMALL BUSINESS 
ACCOUNTING 

Based on Dome Bookkeeping Record 
#612, this program keeps track of income, 
expenses, and payroll (not in cassette 
version) for a small business. 

Model 1/3/4 disk version $59.95 

Model 1/3/4 cassette version $29.95 

Model 2/12/16 or IBM/PC version . . $69.95 

HOMEBUDGET& 
CHECKBOOK ANALYST 

Analyzes your income and expenses, 
maintains checkbook register, computes 
monthly and year to date summaries and 
projections. 

Model 1/3/4 disk version $59.95 

Model 1/3/4 cassette version $29.95 

Model 2/12/16 or IBM/PC version . . $69.95 



24-hour TOLL-FREE Order Number: 
Outside California call: 

(800)428-7825, ext. 169 

Inside California call: 

(800)428-7824, ext. 169 



Visa, Master Card, or COD orders only. 

Add $3.00 postage & handling. 

New York residents add sales tax. 

Howe Software 

14 Lexington Rd., New City, NY 10956 

•TRS-80" 1 is a trademark of Tandy Corp. 
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TRS-80 
MODEL I 

DISK 

INTERFACING 
GUIDE 

$5.95 

POSTPAID 

FIRST CLASS 

(United States Only) 

$7.95 Foreign Airmail 
(U.S. Funds) 

Send to: 
80-N.W. Books 

3838 South Warner St. 

Tacoma, WA 98409 

(206) 475-2219 

Dealer Inquiries Invited 

TRS 80 is a registered trademark of Tandy Corporation 



Send 

Check Enclosed 

Visa or MasterCard 

# 



Copies of the Guide 



Exp. Date. 
Signature . 

Name 

Address 

City 

State 



Zip. 



A Division of 80-Northwest Publishing, Inc. 

Books 
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28713 . . . This created a buffer 
containing the whole screen. Now, 
CLEARing the screen and typing 
X=USR(15360) caused the whole 
screen to reappear instantly. Try it. 



It's a great way to make a HELP 
screen for use in a BASIC program. 
To get a copy of the "self-portrait" 
for this article, I used the code in 
Listing 5. 



Table 1 

Line ft/Comment 

120: 7000H (28672 decimal) is a 
nice round starting address 
popular for the start of subroutines 
because it's low enough to be used 
in 16K systems but still allows 
room for at least a short BASIC 
program. 

130-150: For subroutines used 
in a BASIC program, always save 
the major registers and restore 
them at the end of the subroutine. 
The BASIC interpreter is actually 
a machine language program and 
probably needs these register 
contents. 

160: The routine at 0A7FH 
fetches the number, SA (or any- 
thing else you choose) from 
"X=USR(SA)" and places it in the 
HL register. 

170-320: These lines set up and 
execute an LDIR instruction 
which moves a first image line into 
the screen memory. 

330-350: We're using A to hold 
the number of lines and after each 
line is printed, we reduce A and 
test to see if we've printed the last 
line yet. 

360-420: If we need to print 
another line, we get its start by 
adding 40H (64 decimal), the 
length of a Model I or III screen 
line, to the previous start. The 
ADD statement in line 380 is an 
easy way to perform this addition 
so we've got to store the contents of 
HL, and "borrow" it in much the 



same way we stored all registers 
for BASIC at the start. 

430-480: After the image has 
been placed on the screen, we've 
got to get those three values for 
BC, DE and HL which we PUSHed 
onto the stack at the beginning. 
PUSHing register values onto the 
stack is like dropping them into a 
hole. We've dropped two more in on 
top of the original three, so they 
must be POPped out and thrown 
away to get at the ones we want. 
The "dummy" POPs in lines 430 
and 440 do this. We could have 
used any register. The unneeded 
values appear briefly in HL and 
are immediately written over. Note 
that the POP order must be exactly 
the reverse of the PUSH order, so 
that correct values will end up in 
each register. Keeping track of 
PUSHed and POPped numbers 
requires concentration. 

490: Return to the BASIC 
program. 

500: When we type this source 
code in, using EDTASM, we don't 
see the code at the left of this 
listing so we have no idea where 
the buffer will begin. In order to 
have a location for "IMAGE," 
which is referred to in line 180 
above, we must define the next 
byte after "RET." We name it 
IMAGE, to match the line 180 
reference, and since we know from 
our graphics layout that there are 
three lines, we DEFB (DEFine 
Byte) as 3. 
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A SCREEN PRINT 'CAPTURED' BY THE CODE 
WHICH APPEARS IN THE LAST TWO LINES OF 
THIS 'SELF-PORTRAIT' 



>LIST 

5 POKE 1656 1.254: POKE 16562,111 

6 P0KE16526, 0: P0KE16527, 1 12 

9 '** BYTES FOR THE IMAGE DRIVER PROGRAM ** 

10 DATA 229, 213, 197, 205, 127, 10,235, 33, 41,112,126, 35, 78 
20 DATA 6, 0, 35,197,213,237,176, 61,202, 35,112,209,229 
30 DATA 33, 64, 0, 25,235,225,193, 24,237,225,225,193,209 
40 DATA 225,201 

4S '** BYTES FOR THE "CLUB" IMAGE FILE ** 

49 ' NUMBER OF LINES AND CHARACTERS PER LINE 

50 DATA 3,8 
BREAK 
READY 

> POKE 28713, 1E:P0KE28714,64:RA=28715:F0R SA=153G0 TO 16383 8 POKE 
RA, PEEK < SA ) :RA=RA+1: NEXT 



Chips 



Listing 2 

4 ' PROTECT MEMORY AT 2 
8670 

5 POKE 16561, 254: POKE 1656 
2,111 

6 ' STORE ENTRY POINT F 
OR M/L SUBROUTINE (28672) 

7 POKE 16526,0 :POKE 16527, 
112 

9 ' ** BYTES FOR THE IMAGE 
DRIVER PROGRAM ** 

10 DATA 229,213,197,205,12 
7, 10,235, 33, 41,112,126, 

35, 78 
20 DATA 6, 0, 35,197,21 
3,237,176, 61,202, 35,112, 
209,229 

30 DATA 33, 64, 0, 25,23 
5,225,193, 24, 23 / , 225 , 22d , 
193,209 
40 DATA 225,201 

48 ' ** BYTES FOR THE "CLUB 
" IMAGE FILE ** 

49 ! NUMBER OF LINES AN 
D CHARACTERS PER LINE 

50 DATA 3,8 

59 ' FIRST LINE 

60 DATA 128,128,174,191,19 
1,157,128,128 

69 * SECOND LINE 

70 DATA 174,191,191,174,15 
7,191,191,157 

79 ' THIRD LINE 

80 DATA 128,128,136,142,14 
1 ,132, 128, 128 

85 DEFUSR1=28672 

89 ' INSTALL SUBROUTINE 
AND IMAGE IN MEMORY 

90 FOR RA=28672 TO 28738s R 
EAD BsPOKE RA,BsNEXT 

95 ' Line 100 is for Mod I 

. For Mod III replace Lin 

e 100 with 100 DEF 

USRl=28672sCLSsSA=15704:X= 

USRl(SA) 

1 00 CLS s SAfI 5704 : X=USR( SA) 

109 ' USE THE SUBROUTINE 
i 

110 GOTO 110 



Listing 3 



10 POKE 16526,0: POKE 16527 

,112 

20 CLS 

25 SA=RND( 832) +15360 

26 8 Line 30 is for Mod I. 
For Mod III replace Line 

30 with 30 DEFUS 
Rl=28672sX=USRl(SA) :N=N+1 
30 X=USR(SA):N=N+1 
40 Z$=INKEY$:IF Z$="" THEN 

25 
50 GOSUB 9: IF Z$="S" THEN 
PRINT@960, "PRINTED'^'CLUBS 
"?: GOSUB 9:GarO 20 
60 GOTO 30 



Listing 4 

5 POKE 16526, 0:POKE 16527, 

112 

10 CLS 

20 FOR K=2 TO 770 STEP 256 

30 FOR J=K TO K+56 STEP 9 

35 ' Line 40 is for Mod I. 



For Mod III replace Line 
40 with 40 DEFU 

SR1=28672:X=USR1 (15360+J) 
40 X=USR(15360-hJ) 
50 NEXT: NEXT 
60 GOTO 60 



Listing 5 

5 ' For Mod III add 5 CLEA 
R 100 

10 POKE16526,0:POKE16527,1 
12 

15 8 Line 20 is for Mod I. 
For Mod III replace Line 
20 with 20 DEFUS 

R1=28672:X=USR1 (15360) 
20 X=USR( 15360) 
40 LPRINTaiR$(27)"B" 
50 FOR SA=15360 TO 16383 
60 B=PEEK(SA) 
70 IF B<32 THEN B=B+64 
80 LPRINTCHR$(B);:NEXT 
90 CLS 



2 GOTO 10 

9 Z$=INKEY$:IF Z$=' 

9 ELSE RETURN 



THEN 



Write for our incredible catalogue of over 
100 pages, containing hundreds of 
programs for the Model I and III. Color 
Computer programs available in the 
Fall, Catalogue is $5.00 refundable on 
your first order. All software is 
unconditionally guaranteed for life!! 
Canadian manufacturer and distributor 
for Molimerx, Ltd. of England. 



Games/DOS/Ufilities/Business Programs 

*LDOS $159.95 

*MULTIDOS $129,95 

*ACCEL4 $139.95 

*FROGII $ 23.95 

\JUMBO $ 40.95 

*POWERMAIL PLUS $199.95 

'AIRBUS $ 41.95 

"DATA WRITER $189.95 

"DRIVER COMPILER $ 43.95 

'ENIGMA $ 36.95 

Fully Supported Computer Software 
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Bridge-80 is a program designed 
both to teach Bridge fundamentals 
and to allow the experienced player 
hours of solo practice and fun. Like 
the popular mechanical game of 
"Autobridge," you, the player, are 
always the dealer and you always 
bid first. The TRS-80 plays your 
partner and both opponents. You 
have to take it on faith that the 
machine does not peek! Bridge-80 
plays most popular conventions. 
Although your opponents do not bid 
against you, they may double your 
contract if their strength seems to 
justify it. 

You can make the game as 
challenging or as easy as you like by 
how you bid, just as in regular 
Bridge. For highest scores, bid ag- 
gressively. Try to get to slam as 
often as possible, but watch out . . . 
the program can frequently defeat 
overbid contracts. 

Bridge-80 is very "user friendly," 
with several options to enhance its 
usefulness. Interesting or misplayed 
hands may be replayed as often as 
desired. Games can be played either 
open, with all hands shown, or 
closed, with only your hand visible 
during bidding and only yours and 
dummy's visible during play. The 
Goren "Point-Count" system is used 
to evaluate hands and the count for 
your hand is displayed during 
bidding. A running score is kept and 
displayed at all times. You and your 
"dummy" partner are scored as 
"We." Partial scores, games, 
penalties and bonuses are all 
accumulated (except if you elect to 
replay a hand already scored, it 
doesn't count again). 

Few instructions are really 
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necessary to use Bridge-80 if you 
already know how to play Bridge. If 
not, you'll need a good beginner's 
book to get started. At least you can 
learn with no chance of making a 
fool of yourself or making an enemy 
of your partner. 

Getting Started 

Your first response is a single 
letter to indicate whether you wish 
the hands to be "displayed" (played 
open), or to replay the last hand. 
Any key other than "D" or "R" is 
assumed to mean a normal new 
hand. The deck is then shuffled at 
random and dealt out graphically. 
Your hand is automatically sorted 
and the point-count is displayed. 
Enter a bid by typing a number, 
followed by the first letter of the suit 
(or "N" for notrump). There is no 
need to use the enter key at any time 
and invalid bids are ignored. Use 
"P" to pass and "R" to redouble. At 
any time you can type "@" to cancel 
the current hand and either replay it 
or get a new one. 

Compared to regular Bridge, 
you'jl notice that with Bridge-80 you 
generally get much better hands. 
This is because the computer always 
picks out the best of the four hands 
as yours. This seems only fair. After 
all, it's your computer! 

Your partner is programmed to 
respond normally, according to his 
or her point count and assessment of 
yours. Partner responds to 2c1uds as 
forcing, and must show best suit (or 
2 diamonds with less than 'five 
points). Your partner may respond 
to your opening 1 notrump with the 2 
club Stayman convention. You can 



ask for aces and kings by using the 
Blackwood convention (4NT and 
5NT) but not the Gerber convention 
(4 clubs), which is no longer used in 
the best Bridge-80 circles. 

The "Display" mode allows you to 
see -your partner's hand during 
bidding and all four hands during 
the play. Display mode is a great 
way to learn how your partner 
responds to your bidding since it 
also shows your partner's point 
count and his/her assumption about 
the points in your hand, During 
play, you can get an appreciation of 
the art of the finesse and the cross- 
ruff. " 

The "Replay" mode lets you 
recover from a totally misbid mess 
and start over, or lets you play an 
interesting hand again with 
different bidding. Ypu can also use 
the Replay option tp stage a kind of 
duplicate tournament with a friend 
in- which you both play each hand 
and try to outscoreeach other. Since 
each new deal is totally random, you 
can replay only the last hand 
(although you can replay it as often 
as you like). A reader interested in 
storing hands for future replay could 
add code to save array "DL," which 
has only 52 elements. 

The Auction 

Bidding is straight-forward. 
Simply press the correct number key 
followed by the first letter of the suit. 
Bridge-80 will not let you bid below 
the current auction level. Your bids 
are displayed just above your hand 
and those of your partner just below 
his/her hand. All bids are visible 
throughout the auction. Bidding 



Bridge-80 



George L. Farnsworth 



continues until you pass (press "P") 
or respond to an opponent's 
"double" with a "redouble" (press 
"R," of course), or until your partner 
passes without an intervening 
double. 

_ Figure 1 displays the screen at the 
start of bidding. Your hand appears 
sorted by suit and number with the 
point-count On the right. The current 
score is at upper right and the 
number of hands played is at top 
center. Figure 2 shows the, screen 
after four rounds of bidding. All bids 
are displayed in left-to-right and top- 
down order. 

You may decide to open the 
bidding by passing if. you have a 
weak hand arid your partner may 
then decide to open. If partner also 
passes, the hand ends. 

Either you, as dealer, or your 
partner, can win the auction. If your 
partner wins, Briotge-80 automati- 
cally exchanges your hands so that 
you play the hand. (The computer is 
always "dummy";) 

At any time during the auction or 
the play of the hand ybu can cancel 
and get a new deal or start over by 
pushing "@." 

When the auction is finally over, 
you get a chance to look over the 
bidding before play begins. By 
pushing any key, you can cut this 
review period short. The final 
contract is displayed in the lower 
left-hand corner during play along 
with any conditions such as DBL 
(doubled), RDBL (redoubled), or VL 
(vulnerable), which affect scoring. 

The Play 

During play, each card appears in 
the center of the screen near the 



hand that played it. When it's your 
turn to play, a question-mark 
appears", either in front of your hand 
or dilmmy's. 

, Considerable effort has gone into 
making Bridge-80 easy to use, 
especially during play. If, you or 
dummy have only one possible card 
to play, for exarhple, it is .played 
automatically. Otherwise, indicate 
the card to be played by its value 
first (2 through 9, A, K, Q, J, Or T). If 
the suit is then unambiguous; either 
because you must follow suit or 
because there is only one such card 
in the hand, you will not be asked for 
it. Otherwise, enter the, first letter of 
the suit (C, D, H, qy S). Bridge-80 
won't let you make an illegal play or 
play out of turn. Your completed 
tricks are displayed horizontally 
above your hand and those of your 
opponents vertically on East's side 
(left of screen). 

Figure 3 illustrates the , situation 
where it is North's turn to play on 
the third trick of a six-club doubled 
and vulnerable, contract. South's 
lead was the queen of clubs, East 
played the ten and it is now your 
turn to play from the^ board. Note 
that the question-mark appears at 
the location where the played card 
will be placed. Figure 4 shows the 
same hand at the start, of the fifth 
trick. In Figure 5, you see the display 
at the end of the contract. The 
partnership took all tricks and made 
their contract with one overtrick. 

At the conclusion of each trick, 
you are given a chance to look at it 
before it gets gathered in. Just press 
any key to signal that you're ready. 
Toward the end of play, it frequently 
happens that either the declarer or 



the board is left with all trump while 
the opponents have none. At that 
p'oint, Bridge-80 ends the hand, 
automatically giving ybu all 
remaining tricks. 

Scoring 

The score sheet always appears in 
the upper right corner of the screen. 
"We," of course, represents you and 
your partner. "They" are your 
Bridge-80 opponents. Since the size 
of the score sheet is limited, it only 
displays the total of points toward 
game (part-score) below the line and 
all other points (summed) above the 
line. At the conclusion of each hand, 
the detailed score for that hand is 
displayed at lower left, just below 
the contract. 

For hands that are replayed, the 
results appear, but are not added to 
the running score. 

A word of explanation for those of 
you whose Bridge is rusty — one 
hundred points bid and made 
constitutes a "game," which may 
take only one hand or several. 
Points leading up to game are placed 
"below the line" until game is 
reached. All other points, such as 
those from "slams" and "rubbers," 
are scored above the line and don't 
count toward game. A slam is a bid 
of six, called a small slam, or seven, 
the famous grand slam. Two games 
constitute a rubber, for which you 
get a bonus of 700 points (in regular 
Bridge, you may get only 500 points 
if your opponents make a game 
during the rubber). 

Club and diamond contracts are 

worth 20 points for each trick bid 

and made. Hearts and spades are 

worth 30 each and in notrump the 
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first trick is worth 40 and the rest 30 
each. Two hearts are therefore worth 
60 points and it takes five diamonds 
to make a game, but only three 
notrump. A small slam is worth 500 
or 750, and a grand slam 1000 or 
1500 points, depending on whether 
or not you are "vulnerable" (have 
one game toward rubber). 

If you fail to make your contract, 
your opponents earn points above 
the line on their side (penalties), 50 
or 100 points per trick depending on 
vulnerability. 

"Doubling" or "redoubling" does 
exactly that to the scoring, except 
that the penalties for undertricks are 
even worse. You should redouble 
only when you are very sure of 
making your contract. 

Program Structure 

An attempt has been made to keep 
Bridge-80 modular and structured 
for easy understanding and user 
modification. Wherever possible, 
subroutines and logical expressions 
have been used to avoid building up 
confusing nests of IF . . . THEN . . . 
ELSE structures. 

For reasons of speed and economy 
of memory, Bridge-80 makes 
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Figure 1 



frequent use of subroutines and 
long, dense statements. Listing 1 is a 
standard LLIST of the program. 

Figure 6 outlines the program 
structure. Use this structure to 
modify the program to suit your 
style of play. If, after using the 
program for awhile, you feel that 
your partner bids too cautiously, 
take a look at lines 3000 to 3300. An 
examination of line 3240 reveals 
that North passes if MP+PN is less 
than 20. From Figure 7, you see that 
these variables are an estimate of 
your points as shown by bidding 
and North's points, respectively. 
Change the "20" in the cited line to 
"18" if you feel that your partner is 
passing too many of your one-bids. 
Similarly, change the "26" in the 
next line to "24" if you feel that your 
partner should continue bidding 
toward game with weaker hands. 

In keying the program in from the 
listing, you may omit comments if 
you prefer, but be very careful not to 
change the screen displays. Bridge- 
80 examines the screen for certain 
necessary information and 
unpredictable results may occur if 
the screen doesn't appear exactly as 
it expects. 



WE 
2,100 




BID 



CLUBS : 


AQ86 3 


DIAMONDS : 


K 


HEARTS : 


AKT 


SPADES : 


AQJ2 



25 POINTS 
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PASS 
PASS 
PASS 
PASS 

BID 

VULNERABLE 
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THEY 
400 



3C 



4H 5C 



PASS 




PASS 
PASS 
PASS 
DOUBLE 



2C 3S 4S 6C 
CLUBS : KQ 
DIAMONDS: AKT4 
HEARTS : K4 3 
SPADES : AKJ5 



24 POINTS 



Listing 1 — Bridge-80 

10 GOTO 1000 :' BRIDGE-80 (C)198 

3 BY GEORGE FARNSWORTH 



2343 ROSEDOWN DR. 

RESTON, VA 22091 

20 PRINT@128,CHR$(31);:GOSUB21000:PRINT@ 
520, "MODE (NORMAL/DISPLAY/REPLAY) "; sAT= 
552:GOSUB70 sPRINT@520,BL$; :IFK$="D"THEN 
TG=1ELSEIFK$ < >R$THENTC=0ELSEAT=616 : PRINT 
@584, "REPLAY M3DE ( NORMAL/ DI SPLAY) "sGOSU 
B70 !PRINT@584,BL?:PRINT@528, "RE"; :TC=(K 
?="D"):GOTO2000 
30 K$=INKEY$sIF K$<>"" THEN K2=99; RETURN 

ELSE RETURN 
40 K$=INKEY$:M$="ANY KEY" 
50 FOR K1=0TO10 s PRINT@948, M$ ; BL$ ; : FORK2= 
0TO99:GOSUB 30 :NEXTsIFK$="" THEN PRI 
NT@948," ";sFORK2=0TO99sGOSUB 30 sN 
EXT:IFK?="" THEN NEXT-. RETURN 
60 PRINT@948,BI^;:IFK$="@"THENN$="CANCEL 
LED":GGTO5010 ELSERETURN 
70 FORIK=0TO2STEP0 s PRINT@AT , " ? " ; : K?=INKE 
Y$:IFK$="" THEN PRINT@AT,"* M ; sNEXT ELSE 
IF K$="@" THEN N$= U CANCELLED":GOTO 5010 
ELSE RETURN 

80 PRINT@Y,"#"? sY=Y+l:K$=MID$("CDHS",SK+ 
1,1):RETURN 

90 PRIl>n?@AT,"? ,, j:M$="CARD PLEASE" :GOSUB 
50 ;IF K$=""THEN90 ELSEC$=K$jPRINT@A 
T,K$;tRETURN 

100 PRINT@AT+1, H ?";:M?="SUIT PLEASE" :GOS 
UB 50 :RETURN 

110 PX=P:AX=AT:AT=384:P=EsGOSUB 22000sAT 
=429:P=W:GOSUB 22000:AT=AX:P=PX:RETURN:' 
===== DISPLAY E-W HANDS 

1000 CLEAR200:DEFINT A-Z:CLS:DIM DK(51), 
DL(51),H$(3,4) / NP(3),TP(3),M(3),B(3),D(4 
)sHN=l:VI=l.l 

1010 FOR P=0TO3sTP(P)=0;NP(P)=0sD(P)=5:N 
EXT s D(4 ) =5 : BL$=CHR$ ( 30 ) 
1020 '*** DEAL 

1030 PRINT@0, "BRIDGE-80 ";Vi ,HN: PRINT" 
GL FARNSWORTH (C)1983"; :GOSUB 20:HX=0:RA 
NDOMsPRINT@512, "SHUFFLING ";:FOR CD=0TO5 
1:IF CD<26 THEN PRINT CHR$(143)" "; ELSE 

PRINTSTRING? ( 2 , 24 ) ; BL$ ; 
1040 P=RND(4)-1:IENP(P)=13THEN1040 ELSEN 
P(P)=NP(P)+1:DK(CD)=P*13+NP(P)-1:NEXT 
1050 K=15424:GOSUB 22800:FOR CD=0TO51 
1060 P=INT(4*RND(0))sIF TP(P)=13 THEN 10 
60 ELSE TP(P)=TP(P)+ljDL(DK(CD))=P:NEXT 
CD:PRINT@512,BL$; 

2000 PRINT@530, "DEALING "; :F$="23456789T 
JQKA":N(0)=335;N(l)=677:N(2)=975sN(3)=64 
0:K=0:R$="R" 

2010 FOR P=0TO3:NP(P)=0:FOR CS=0TO3:H$(P 
,CS)="":NEXTCS,P 

2020 FOR CS=0TO3:FOR CN=12 TO STEP -1: 
CD=CS*13+CN: P=DL(CD) : IF CN>8 THEN NP( 
P)=NP(P)+CN-8 

2030 PRINT@N(K),CHR$(143);:N(K)=N(K)+2:K 
=K+lsIFK=4 THEN K=0 

2040 H$(P,CS)=H$(P,CS)+MID$(F$,CN+l,l)s 
NEXT CN,CS 

2050 PS=0:FOR P=0TO3sIF NP(P)>PSTHEN PS= 
NP ( P ) s S=P : NEXTELSENEXT 
2060 »=S+1:IFN>3 THEN N=0 
2070 GOSUB 23800 ;SN?= "CLUBS DIAM0NDSHE 
ARTS SPADES ":PRINT@335,CHR$(31) ; 
2080 AT=793:P=S:GOSUB 22000 
2090 FOR P=0TO3:IF P<>N AND P<>S THEN W 
=P:NEXT ELSE NEXT 

2100 FOR P=0TO3:IF P=N OR P=S OR P=W TH 
EN NEXT ELSE E=P:NEXT 

3000 R=0:PRINT@720,"BID : "; sAT=726:CV=0 
:MP=6:SK=-1:AN=342:S$="C D H S NT":LS=5: 
EA=330:WA=368:PRINT@949,TP(S) ; "POINTS"; : 
IF VL PRINT@832, "VULNERABLE"; 
3010 IF TC THEN AT=89:P=N: GOSUB 22000: AT 
=726 

3100 R=R+l:LV=CV:LK=SK:GOSUB 10000:IF PK 
*CV THEN 4000 ELSE IF CV THEN IF D(SK)=5 

THEN D(SK)=S 
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VIDEO INSTRUCTION TAPES 

STEP BY STEP INSTRUCTIONS 
VHS or BETA FORMAT 

PICTURES ARE WORTH 

THOUSANDS OF WORDS AND SAVE 

HOURS OF FRUSTRATION 

Use your VCR side by side with your computer 
to learn disk operating systems, how to program, 
and how to use programs. Your VCR along with your 
computer serve as your personal tutor. Pause your 
VCR to review and learn at your own pace. 

SPECIAL OFFER 

Lazy Writer word processor and video instruction 
tape complete with documentation and registration 
card for model 1 , 3 or the model 4, (the model 4 has 
80 character display). 



ONLY 



$119.00 



TAPES FOR THE TRS B© 






CAT# 


TOPIC 


APPR0X. 


PRICE 


DOS-1 


TRSDOS 1.3 MODS 


1 HR30MIN 


$39.95 


DOS-6 


TRSDOS 6.0 MOD 4 


1HR45MIN 


$39.95 


DOS-3 


NEWDOS 80 2.0 


1HR45MIN 


$39.95 


DOS-2 


DOSPLUS 3.5 


1HR45MIN 


$39.95 


DOS-5 


LDOS 


1HR45MIN 


$39.95 


DOS-7 


CPM 2.2 MOD 4 MONTEZUMA 1 HR45MIN 


$39.95 


DOS-4 


MULTIDOS 


1HR45MIN 


$39.95 


EW-1 


VISICALC (TRS80) 


1HR30MIN 


$39.95 


WP-1 


LAZY WRITER 


1HR45MIN 


$39.95 


WP-2 


SUPERSCRIPSIT 


1HR45MIN 


$39.95 


WP-3 


SCRIPSIT 


1HR30MIN 


$39.95 


WP-4 


NEWSCRIPT 


1HR45MIN 


$39.95 


DB-1 


PROFILE HI PLUS 


1HR45MIN 


$39.95 


DB-2 


PFS.FILE 


1HR30MIN 


$39.95 


DIO-3 


TRSDOS 1.3 DISK I/O 


1HR45MIN 


$39.95 


DIO-4 


TRSDOS 6.0 DISK I/O 


1HR45MIN 


$39.95 


BP-1 


LEARNING MOD 3, 4 BASIC 


3 HR 


$49.95 


BP-2 


LEARNING MOD 1 BASIC 


3HR 


$49.95 


TC-1 


MTERM 


45MIN 


$29.95 


UT-1 


DOTWRITER 


1 HR15MIN 


$29.95 



VERBATIM DATALIFE 

Single side double density 10 in a hard plastic 
storage box. 



TAPE FOR THE TRS80 COLOR COMPUTER 
BP-5 EXTENDED COLOR BASIC 3 HR 

TAPES FOR THE COMMODORE ®4 AND VIC 20 



ONLY 



$25.00 



C.O.D. Orders Add $3.00 

$3.00 Shipping Per Order 

Illinois Residents Add 6% Sales Tax 

Specify either VHS or BETA Tape Format 



BP-3 LEARNING C-64 BASIC 

BP-4 LEARNING VIC-20 BASIC 

DIO-1 COMMODORE 64 DISK I/O 

DIO-2 VIC 20 DISK I/O 

TAPES FOR THE IBM PC 

EW-2 VISICALC (IBM PC) 

TC-2 MTERM (IBM PC) 



2 HR 

2 HR 

1 HR45MIN 

1HR45MIN 



1 HR30MIN 
45 MIN 



$49.95 



$49.95 

$49.95 

$49.95 
$49.95 



$39.95 
$29.95 






LYNN COMPUTER SERVICE 

6831 West 157th Street Tinley Park, Illinois 60477 (31 2) 429-1 91 5 

VISICALC IS A TRADEMARK OF VISICORP INC LAZY WRITER IS A TRADEMARK OF ALPHA BIT COMMUNICATION SCRIPSIT SUPERSCRIPSIT, PROFILE III PLUS AND TRSDOS ARE 
TRADEMARKS OF TANDY CORP LDOS IS A TRADEMARK OF LOGICAL SYSTEMS INC NEWDOS80 IS A TRADEMARK OF APPARAT INC DOS PLUS AND MTERM ARE TRADEMARKS OF 
MICRO-SYSTEMS SOFTWARE INC MULTIDOS IS A TRADEMARK OF COSMOPOLITAN INC VIC 20 AND COMMODORE 64 ARE TRADEMARKS OF COMMODORE BUSINESS MACHINES. INC 
IBM IS A TRADEMARK OF INTERNATIONAL BUSINESS INC CP/M IS A TRADEMARK OF DIGITAL EQUIPMENT CORP NEWSCRIPT IS A TRADEMARK OF PROSOFT DOTWRITER IS A 
TRADEMARK OF RCM COMPUTERS TM INDICATES A TRADEMARK OF LYNN COMPUTER SERVICE 
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3110 IF R=l THEN GOSUB 23000: IF CV=1ANDS 
K=4 THEN MP=17 ELSE IF CV=1 THEN MP=14 E 
LSE IF CV=2ANDSK=0 THEN MP=24 ELSE IF CV 
>LV+1 OR (CV>LV AND SK>LK) THEN MP=MP+4 
3120 IF R>1 THEN IF CV>LV+1 OR (CV>LV AN 
D SK>LK) THEN MP=MP+3-3*(MP=6) 
3130 GOSUB 20000 :PRINT@EA+64*R, "PASS"; 
3140 IF SK=4 THEN IF CV=4 THEN GOSUB 22 
200 :CV=5: GOTO 3290 ELSE IF CV=5 THEN GOS 
UB 22220 :CV=6:GOTO 3290 

3200 IF SK=4 THEN PN=NP(N) ELSE PN=TP(N) 
:FOR CS=0TO3:L=LEN(H$(N,CS)):IF L<3 AND 
CS=SK THEN PN=PN-2xNEXT ELSE NEXT 
3210 IF TC THEN PRINT@300,MP;PN''POINTS"; 
3220 GOSUB 22100: IF R=l THEN IF CV=2 AN 
D SK=0 THEN 20020ELSE IF CV=1ANDSK=4 THE 
N 20040ELSE IF R=2ANDST=1 THEN 20070 
3230 IF MP+PN<33 THEN IF (CV>3 AND SK>1 
) OR (CV=3 AND SK=4 ) OR CV>4 THEN 3280 
3240 IF MP+PN<20 THEN 3280 
3250 IF CV>2 AND MP+PN<26 THEN 3280 ELSE 

IF CV>5 THEN 3280 
3260 IF CV=4 AND BS=4 THEN BS=B(0) ELSE 



BRIDGE-80 1.1 

GL FARNSWORTH (C)198 3 



IF CV=1 AND BS=SK AND PN>12 THEN CV=CV+2 

:GOTO3290 ELSE IF CV=0 THEN CV=1 

3270 IF BS>SK THEN SK=BS:GGTO 3290 ELSE 

SK=BS:CV=CV+1:GOTO 3290 

3280 PRINT@AN, "PASS"; sGOSUB 20010:AN=AN+ 

5: IF DB=2 THEN 3100 ELSE 4000 

3290 PRINT@AN,STR$ (CV) ;MID$ (S$,SK*2+1,2 ) 

;:AN=AN+5: GOSUB 20010 

3300 IF D(SK)<>S THEN D(SK)=N:GCTO 3100 

ELSE 3100 

4000 TP(N)=PN:GOSUB 23500:AT=89:P=N:GOSU 

B 22000: DA=718:WL$=CHR$ (194) 

4010 T$=CHR$ ( 143 ):B$=CHR$( 200): GOSUB 40 

: FOR I=320TO704STEP64 : PRINT@I , BL$ ; : NEX 
T:IF TC GOSUB 110 

4020 IF SK<0 THEN N$="ALL PASS": GOTO 501 
ELSE PRINT@832, "CONTRACT: "STR$(CV);MID 
$(S$,SK*2+1,2);:TK=SK:IF VL THEN PRINT" 
VL"; 

4030 IF DB=2 THEN PRINT" DEL"; ELSE IF D 
B=4 THEN PRINT" RDBL"; 

4040 LP=E:DT=0:OT=0:GM=0:IF CV>4 THEN GM 
=1 ELSE IF CV=4ANDSK>1 THEN GM=1 ELSE IF 



Figure 3 
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CONTRACT: 6C VL DBL 



CLUBS 
DIAMONDS 
HEARTS 
24 POINTS BELOW 27 4 ABOVE 



ANY KEY 



CV=3ANDSK=4 THEN GM=1 
4100 IJ>-1:PRINT@412,B$; :PRINT@412+128,B 
?; :PRINT@473,B$; :TM=0 

4110 P=LP:IF LP=S OR LP=N THEN GOSUB 130 
00:LK=SK ELSE GOSUB 11000 
4120 LD=0:LK=SK: GOSUB 23200 :CM=C:WN=P: GO 
SUB 23100 

4130 IF P=S OR P=N THEN GOSUB 13000ELSE 
GOSUB 12000 

4140 GOSUB 23200 :GOSUB 23100: IF P=S OR P 
=N THEN GOSUB 13000ELSE GOSUB 12000 
4150 GOSUB 23200: GOSUB 23100: IF P=S OR P 
=N THEN GOSUB 13000ELSE GOSUB 12000 
4160 GOSUB 23200: IF WN=S OR WN=N THEN DT 
=DT+1:PRINT@DT*2+DA,T$; ELSE OT=OT+1:PRI 
NT@OT*64+197,T$; 

4170 DA=DA-(DT=6): GOSUB 40 :IF CT+DT<1 
3 THEN LP=WN:GOTO 4100 

5000 CV=CV+6:IF DT=>CV THEN GOSUB 24000E 
LSE N$="DOWN "+STR$(CV-DT)+" U":GOSUB 2 
5000 

5010 GOSUB 21000:B$=CHR$(192+LEN(N$)):FO 
R 1=1 TO 3:PRINT@899,N?;:GOSUB 20000 :PRI 
NT@899,B$;: GOSUB 20000: NEXT: GOSUB 40 : 
IF BW>99 THEN UW=UWfBW:BW=0:GOTO 1010 EL 
SE 1010 

10000 PK=1: GOSUB 70 sIF K$="P" THEN PR 
INT@AT, "PASS"; :AT=AT+5: RETURN ELSE IF K 
$="R" AND DB=2THEN PRINT^AT, "REDOUBLE"; : 
DB=4: RETURN ELSE BN=VAL(K$) :IF BN<CV THE 
N 10030 

10010 PRINT@AT+l,K$;:GOSUB 70 :FOR BK= 
0TO4:IF K$=MID$(S$,BK*2+1,1) THEN 10020E 
LSE NEXT:GOTO10030 

10020 PK=0:IF BN>CV OR (BK>SK) THEN PRIN 
T@AT, STR$ (BN) ;MID$ (S$, BK*2+1 ,2); : AT=AT+5 
:CV=BN:SK=BK:RETURN ELSE 10030 
10030 PRINT@AT," ";:GOTO10000 
11000 IF P=E THEN PP=W Er.SE PP=E 
11010 MM=-99:FOR K=0TO3:M=0:L=LEN(H$(P,K 
)):IF L=0 THEN 11050ELSE M=10*(K^TK)+5*( 
LEN(H$(N,K))=0)+5*(LEN(H$(S,K))=0)-5*(LE 
N(H$(PP,K))=0)-5*(LEN(H$(P,K))=1)-5*(LEF 
T$(H$(P,K),2)="AK") 

11020 IF (LEN(H$(N,K))>0) THEN H$=LEFT$( 
H$(N,K),1):X=((H$="A")+(H$="K"))*3 
11030 M=M+X*(P=E)-X*(P=W):IF (LEN(H$(PP, 
K))>0) THEN M=M-5*(LEFT$(H$(PP,K),1)="A" 
)-3* (LEFT? (H$ (PP,K) , 1 )="K" ) 
11040 IF M>Wl THEN MM=M:SK=K 
11050 NEXT K:L=LEN(H$(P,SK)):IF MM>0 THE 
N 11060ELSE C$=RIGHT$(H$(P,SK),1):H$(P,S 
K)=LEFT$(H$(P,SK),L-1):GOTO 11070 
11060 C$=LEFT$(H$(P,SK),1):H$(P,SK)=RIGH 
T$(H?(P,SK),L-1) 

11070 PRINT@473-6*(P=W),C$rMID$("CDHS",S 
K+l , 1 ) ; : RETURN 

12000 AT=473:LW=0:SM=CM:SK=LK:L=IJEN(H$(P 
,SK)):IF P=E THEN PP=W ELSE PP=E 
12010 PG=0:IF VtP=PP AND (CM>9 OR TM>0) T 
HEN PG=1 
12020 IF P=W AND LP=N AND WN=E THEN PG=1 

ELSE IF P=E AND LP=N AND WN=*/ THEN PG=1 
12030 IF P=E AND LP<>N THEN D$=LEFT$(H$( 
N,LK),l):GOSUB 23300:IF D>SM THEN PG=0:S 
M=D 

12040 IF PG THEN IF L THEN LW=l:GOTO 120 
70ELSE 12100 

12050 IF L=0 THEN D$=LEFT$(H$(P,TK) ,1) :G 
OSUB 23300: IF D>TM THEN SM=TM:SK=TK:GOTO 

12060ELSE 12100 
12060 L=LEN(H$(P,SK)):IF RND(10)>8ANDTK< 
>SK AND SM<>13THEN LW=1 

12070 N$=H$(P,SK):IF LW THEN C$=RIGHT$(N 
$,l):H$(P f SK)=LEFT$(N? l L-l)sGOTO 12120EL 
SE 12080 

12080 FOR I=LTO1STEP-1:D$=MID$(N$,I,1):G 
OSUB 23300: IF D>SM THEN 12090ELSE NEXT: I 
=L 

12090 C$=MID?(N$,I,1):H$(P,SK)=LEFT$(N$, 
I-l)+RIGHT$(N$,L-I):GOTO 12120 
12100 L=0:FOR K=0TO3:IF LEN(H$(P,K)) > L 

THEN L=LEN(H$(P,K)):SK=K:NEXT K ELSE NE 
XTK 

12110 LW=l:GOTO 12070'== DISCARD 
12120 PRINT@AT-6* (P=W) , C$ ;MID$ ( "CDHS" , SK 
+1,1); :IF TC THEN GOSUB 110 : RETURN ELS 



52 Basic Computing 



Bridge-80 



E RETURN 

13000 SK=LK:AT=412-128*(P=S):D=LEN(H$(P, 
LK)):IF (NOT LD)AND L=l THEN C$=H$(P,LK) 
:SK=LK:GOTO 13030 

13010 SU=0:FORI=0TO4:IF H$(P,I)>"" THEN 
SU=SU+1:SK=I:NEXT ELSE NEXT:IF SU=1 THEN 
GOSUB 23400:L=LEN(H$(P,SK)):IF L>1 THEN 
GOSUB 90 :GOTO 13030ELSE C$=H$(P,SK): 
GOTO 13030 

13020 GOSUB 90 jIF LD OR L=0 THENGOSUB 
23600: IF K$<>"" THEN 13030ELSE GOSUB 10 
!FORSK=0TO3:IFK$<>MID$("O«S",SK+1,1) 
THEN NEXT:GOTO13020ELSE13030ELSE SK=LK 
13030 L=LEN(H$(P,SK)):IF L=0 THEN 13020E 
LSE X=0:N$="":FOR CD=1T0L:IF C$=MID$(H$( 
P,SK),CD,l) THEN X=-1:NEXT ELSE N$=N$+MI 
D$(H?(P,SK),CD,1):NEXT 

13040 K$=*lID$("aHS M ,SK+l,l)!lF X THEN H 
$(P,SK)==N$:PRINT@412-128*(P=S),C§+K$; EL 
SE 13020 

13050 ft=99-704*(P=S)sPRINT@A+64*SK,N$;CH 
R$( 30);: RETURN 

20000 FOR TT=0TO200: NEXT: RETURN' ===== T 
1ME DELAY 

20010 GOSUB 20000:IF (CV>5 AND TP(E)-tTP( 
W)>10) OR (CV>3 AND TP(W)+TP(E)>16) THEN 
DB=2:PRINT@WA+64*R, "DOUBLE";: RETURN ELS 
E DB=1 : PRINT@WAt64*R, "PASS" ; : RETURN 
20020 IF PN<3 THEN SK=1:CV=2 ELSE IF PN< 
10 OR LEN(H$(N,BS))<4 OR BS<2THEN SK=BS: 
CV=€V+1 ELSE SK=BS:' == RESPONSE TO 2C 
LUBS 

20030 GOTO 3290 

20040 ' ===== RESPONSE TO INT = 
20050 IF PN>10 THEN CV=3:SK=BS ELSE IF P 
N>7 THEN ST=1:CV=2:SK=0 ELSE IF BS>0 THE 
N CV=2:SK=BS ELSE 3280 
20060 GOTO3290 

20070 , ==== RESPONSE TO STAYMAN CONVENTI 
ON 

20080 IF SK=1ANDCV=2 THEN 3270 ELSE IFSK 
>1ANDCV=2 THEN IF SK=BS THEN CV=4:GGT0 3 
290 ELSE CV=3:GOTO 3290 ELSE 3230 
21000 REM===== SCORE DISPLAY 
21010 PRINT@52, "WE THEY"; :PRINT@177, 
STRING!? ( 15 , 140 ) ; : FOR I=56T0312STEP64 : PRI 
NT@I,CHRS(191) ; :NEXT:U$="##,###" 
21020 PRINT@113, ; :PRINTUSINGU$;UW; :PRINT 
@121, ; :PRINTUSINGU$;UT; :PRINT@241, ; :PRIN 
TUSINGU!? ; BW; : PRINT@249 , ; : PRINTUSINGU$ ; BT 
;:RETURN 

22000 FOR CS=0TO3:PRINT@AT+64*CS,MID$(SN 
$,CS*8+1,8);": ";H$(P,CS) ;WL$; :NEXT:RETU 
m . rem ===== DISPLAY A HAND 
22100 BS=B(0):DF=ABS(M(BS)-M(B(1))):IF M 
(B(0))<10 AND R>1 THEN BS=4:RETURN ELSE 
IF (LEN(H$(N,BS))<5) OR (DF<7ANDM(B(l) )> 
9) THEN B=B(0):B(0)=B(1):B(1)=B:RETURN E 
LSE M(BS)=M(BS)-1:RETURN 
22200 SK=0:FOR CS=0TO3: IF LEFT$(H$(N,CS 
),1)="A" OR LEN(H$(N,CS))=0 THEN SK=SK+1 

. ' ===== GOUNT ACES & VOIDS 
22210 NEXT :SK=-SK*(SK<4): RETURN 
22220 SK=0:FOR CS=0TO3:IF LEFT$(H$(N,CS) 
,1)="K" OR LEFT$(H$(N,CS),2)="AK" THEN S 
K=SK+1 
22230 NEXT: IF SK=4 THEN SK=0:RETURN ELSE 

RETURN 
22800 TT=0:FOR I=K TO K+20:TT=TT+PEEK(l) 
:NEXT:IF TT<>1354 THEN TP(RND(3))=1:RETU 
RN ELSE RETURN 

23000 FOR CS=0TO3:M=0:LFLEN(H$(N,CS)):IF 
L>0 THEN FOR K=l TO L:M=M-(MID$(H$(N,CS 
),K,l)>"9"):NEXT'== SUIT RANKING 
23010 IF CS=SK THEN M(CS)=M(CS)+3 
23020 M(CS)=L*2+M-(CS>1):NEXT CS:FOR BS= 
0TO3:M=-1:FOR CS=0TO3:IF M(CS)>M THEN M= 
M(GS):B(BS)=CS:NEXT ELSE NEXT 
23030 M(B(BS))=-M(B(BS)):NEXT BS:FOR 1=0 
T03:M(I)=-M(I) :NEXT:RETURN 
23100 P=-E*(P=S)-N*(P=E)-W*(P=N)-S*(P=W) 
:RETURN:'— NEXT PLAYER- 
23200 C=VAL(C$):IF 0=0 THEN FOR C=1TO5:I 
F C$=MID$("TJQKA",C,1) THEN C=C+9ELSE NE 
XT:STOP 

23210 IF (OCM AND SK=LK) THEN CM=C:WN=P 
ELSE IF (SK=TK AND LK<>TK AND OTM) THE 



N WN=P:CM=15: , m=C 
23220 RETURN' ===== WHO WINS TRICK 
23300 IF D$="" THEN D=0: RETURN ELSE D=VA 
L(D$):IF D>0 THEN RETURN ELSE FOR D=1T05 
:IF D$=MID$("TJQKA",D,1) THEN D=D+9:RETU 
RN ELSE NEXT:STOP 

23400 IF SK<>TK OR DT+0T>11THEN RETURN E 
LSE IF H$(E,TK)=""ANDH$(W,TK)="" THEN PR 
INT@AT-3,"ALL TRUMP"; :DT=DT+LEN(H$(P,TK) 
):GOTO 5000 ELSE RETURN 

23500 IF SK=>0 THEN IF D(SK)=S THEN RETU 
RN ELSE P=N:N=S:S=P:AT=793:FORI=69T0281S 
TEP64 : PRINT@I , CHR$ (216 ) ; : PRINT@I+704, BL$ 
;:NEXT:GOSUB 22000:RETURN ELSE RETURN 
23600 K?»" n !SU=0jFOR K=0TO3iLl>LEN(H?(P, 
K))«IF LL>0 THEN FOR I»lTOLLsIF C?=MID$( 
H$(P,K),I,1) THEN SU=aJ+l!SK=K:NEXT ELSE 
NEXT 
23700 NEXT K:IF SU=1 THEN K$=MID$( ,, CDHS 
,SK+1,1):RETURN ELSE RETURN 

238130 REM GOUNT DISTRIBUTION POINTS 

23900 FORP==0TO3jTP(P)=NP(P)«FORCS»0TO3iL 
»LEN(H$(P I CS)):TP(P)=TP(P)-3*(LF0)-2*(L= 



Figure 6 — Program Structure 



1 )- (D=2 ) :NEXTCS, P: RETURN 

24000 REM ==> SCORING «==== 

24100 IF DT=CV THEN N$="MADE IT II" ELSE 

N$»"MADE "+OTR$(DT-CV)+" OVER 1" 
24200 PB=0:PO=0:IF TK<2 THEN P=20*DB ELS 
E P=30*DB:IF TK=4 THEN PB=10*DB 
24300 IF CV=12 THEN PU==DB*(750+250*VL) E 
LSE IF CV=13 THEN PU=DB*(1000+500*VL) 
24400 IF GM THEN PB»PB+P*(CV-6)tVlFVL+l: 
IF VL>1 THEN VL=0:PU=7004-PU 
24500 IF GM=0 THEN PB=PB+P*(CV-6) »IF BW+ 
PB>99 THEN VL=VL+ltIF VL>1 THEN VL=0:PU= 
PU+700 

24600 IF DT>CV THEN PU=PU+P* (DT-CV) 
24700 PRINT@960,PB"POINTS BELOW"PU"ABOVE 
";BL$;:IF HX THEN RETURN ELSE BW=BW+PB:U 
WKJW+PU :HX=1 :HN=HN+1 :RETURN 
25000 IF VL AND DB>1 THEN PU=100*DB+150* 
DB*(CV-DT-1) ELSE IFVL THEN PU=100*(CV-D 
T) ELSE PU=50*(CV-DT)*DB 
25010 PRINT@960,PU"PENALTY POINTS"BL$ ; : I 
F HX THEN RETURN ELSE UT=UT+PU:HX=1:HN=H 
N+1:RETURN 



Line(s) Function 

20-110 Frequently used I/O routines. (Placed here for speed.) 

Main Line 

1000-1060 Displays board and shuffles. 

2000-2100 Deals and counts points. Line 2050 selects South. 

3000-3300 Bidding (helped by several subroutines). 

4000-4040 Start of play. 

4100-4170 Play of the hand (many subroutines). 

500-5010 End of play. Score it and begin again. 

Bidding and Play Subroutines 

10000-10030 Obtains and validates South's bid. 

11000-11070 Selection of East- West leads. 

12000-12120 East- West play (when not leading). 

13000-13050 North-South play and detection of automatic plays not needing 
input. 

Miscellaneous Service Routines 

21000-21020 Displays score at upper right. 

22000 Displays hand P at location AT. 

22100 Calculates whether North should rebid. 

22200-22230 Responses to Blackwood. 

23000-23030 Evaluates North's suits and ranks them. 

24000-24700 Calculates score and bonus if contract is made. 

25000-25010 Calculates penalties for "set" contracts. 



Figure 7 — Key Variables 

N.E.S.W Player pointers (0-3) 

H$(P,SK) Hands. P is player, SK is suit key (0-4 for C-NT) 

LK Lead suit key (as above 0=Clubs, etc.) 

TK Trump suit key 

CM Highest card played in lead suit 

TM Highest trump played 

WN Winning player 

CV Contract value 

DT Declarer tricks 

OT Opponent's tricks 

TP(P) Total points for player P 

NP(P) High-card points for player P 

NP North's points 

MP North's estimate of your maximum points 
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Timothy K. Bowman, Contributing editor 



If you are among the many 
VisiCalc users who have wondered 
how you can manipulate dates, and 
even use the results in other calcu- 
lations on your spreadsheets, this 
month's column has the answer for 
you. 

Dates are fundamental to 
virtually any calculation that 
includes time and money. On the 
surface, it appears that VisiCalc 
cannot handle date calculations like 
some of the "modern" spreadsheet 
programs. How can we overcome 
this apparent shortcoming? 

Let's start by keying in and 
examining the listing of a VisiCalc 
template which can calculate the 
number of days between two dates. 
It is shown in Figure 1 and should be 
keyed in after setting the column 
width to 12 (/GC12). While keying in 
the spreadsheet template, you might 
want to turn off the automatic 
recalculation feature (/GRM). I 
recommend turning it back on after 
the template is keyed in. 

In this template, the user keys-in 
the beginning and ending dates in 
cell positions A3 and A4. The 
program calculates and displays the 
number of days between the two 
dates in cell position D6. It doesn't 
make any difference whether the 
beginning date is greater or less 
than the ending date. While that 
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explanation sounds simple enough, 
let's take a closer look at how the 
problem is solved. 

Solving the Problem 

The key to the solution is in how 
the date is keyed into the cell 
positions A3 and A4. The date must 
be entered in the form MM. 
DDYYYY, where MM stands for the 
month, decimal point, DD stands for 
the day (including a leading zero if 
necessary for a single-digit day) and 
YYYY stands for the year. For the 
date August 3, 1983, the entry 
8.031983 is a permissable entry, 
while 8.31983 produces strange 
results. Try keying in the date in an 
erroneous format if you don't believe 
me. Unfortunately, there is no error 
checking, but the result in D6 will 
make it obvious that an error in 
input has occurred. 

Once the dates are entered, the 
housekeeping section in lines 7 to 29 
take over. Let's try to gain an under- 
standing of how the template works 
by stepping through the logic of 
solving for values in the beginning 
date found in A3. First, the template 
determines the month by taking the 
integer value of A3. Secondly, in 
All, it determines the day by 
subtracting the difference between 
the integer value of A3 and A3 itself, 
multiplies that result by 100 to place 



the year value on the right side of a 
decimal place and then calculates 
the integer value of the entire 
expression. In a similar manner to 
the preceding step, the year is 
determined in A12 by eliminating 
all of the digits preceeding the last 
four. Lastly, in C13, the Julian day is 
computed. For those of you not 
familiar with the Julian date, it is 
simply the consecutive number of a 
given date during the year. In other 
words, February 1 is day 32 (31 days 
in January, plus 1), March 1 is day 
60, etc. This calculation involves the 
use of a Lookup table in which the 
template compares the value found 
in A10 with values found in the 
range A17 to A29 and based upon 
that comparison, selects the 
beginning Julian date for that 
month. It deducts one to obtain the 
preceding month's ending Julian 
number and then adds the day found 
in All to calculate the Julian date 
for the specific date in question. 
Similar calculations are performed 
for the ending date. 

After the preceding calculations 
are complete, the value in D6 is 
computed. It is the number of years 
between the two dates, times 365 
days, plus the ending Julian day, 
less the beginning Julian day. The 
absolute value of the preceding 



calculation is completed to allow for 
a beginning date in A3 that is larger 
than A4. Please note that this final 
calculation is specifically placed in 
D6 and the re-calculation order is set 
by column because the D6 
calculation depends upon the 
previously computed values in lines 
10 to 14. 

Why Didn't I Think of That? 

By now, I hope you are thinking, 
"Gee, that wasn't so hard!" If you 
have the need for date calculation 
routines in your spreadsheets, the 
above technique should be of help. 
Note that leap years are not 
considered, but the extra day is 
generally immaterial for most 
interest calculations. Also, this 
routine can be placed anywhere on 
your spreadsheet as long as the re- 
calculation order is correct. 

Finally, if you are performing date 
calculations involving dates within 

Figure 1 



VisiCalc 

the same year, your entries in ceil 
positions A3 and A4 can be 
shortened to the form MM.DD where 
MM is the month and DD is the day. 
This reduces the input needed and 
has no detrimental effect on the 
spreadsheet's results. 

Printer Code Corrections 

A number of readers contacted me 
concerning sending control codes to 
their printer (December, 1983 issue). 
As a result, a few corrections and 
clarifications are in order. For Model 
I users, if you are using TRSDOS, it 
appears that the technique will not 
work because TRSDOS will not 
recognize and transmit the control 
code (SHIFT @ in the article). Give 
me 30 lashes with a spreadsheet for 
building your hopes up. You'll still 
have to do it from BASIC. 

If you are using another operating 
system, another key sequence will 
probably replace SHIFT @ and 



This is the cell content of DATECALC/VC : 1 : 
A B 



Page 1 



1 

2 

3 


" Computa 


"tion of Days 


" Between Two 


" Dates 


10.031982 


" Beginning D 


"ate 




4 
5 


10.011982 


" Ending Date 






6 


"Number of Da 


"ys Between t 


"he Two Dates 


@ABS ( ( ( 


7 








)*365)+ 


8 


"Housekeeping 


" Section: 






9 


" Beginning 




"Ending 




10 


@INT(A3 


" Month 


@INT(A4) 




11 


©INT(100*(+A3-@I 
NT(A3))) 


" Day 


@INT(100*(+A4-@I 
NT(A4))) 




12 


10000*ai00*(+A3 
-i>INT(A3)))-@INT 
(100*(A3-@INT(A3 
)))) 


" Year 


10000* (( 100* (+A4 
-@INT(A4)))-@INT 
(100*(A4-@INT(A4 
).))) 




13 


"Julian Date 


" _ Beginning 


©LOOKUP (A10,A1 7. 
..A29)-1+A11 




14 


"Julian Date 


"- End 


@LOOKUP(C10,A17. 
. .A29)-1+C11 




15 


" Lookup Ta 


"ble 






16 


" Month 


" Days 






17 





+D13 






18 


1 


1 






19 


2 


32 






20 


3 


60 






21 


4 


91 






22 


5 


121 






23 


6 


152 






24 


7 


182 






25 


8 


213 






26 


9 


244 






27 


10 


274 






28 


11 


305 






29 


12 


335 







These are the DATECALC/VC: 1 Global commands for its main window. 

/GOC = The calculation order is by COLUMN. 

/GRA = This sheet is set to recalculate with each value entry. 

GFG = The General Format is in effect for this window. Values are displayed in decimal 
or scientific notation for the largest number of significant digits. Labels begin in 
the leftmost space. 

/GC12 = Column width is set at 12. 

A3 = Position at which the cursor is located. 
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A serious game of 
Blackjack for the TRS-80 
» Closer to casino play than any other 
computerized game of Blackjack 

• Rules as played in Atlantic City and 
Las Vegas 

• Up to seven players— you play any or 
all hands 

• Splitting pairs, doubling, insurance 

• Over 125,000 deals from eight decks 

TRS-80 Models I, BBI, IV 
Requires 32K, 1 Disk Drive 

$15.95 • Checks only 

• No Charge or COD 

(N.Y. residents add $1.00 for sales tax) 



new 
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directions r 

Consulting, Inc. 

Dixon Road #12, Carmel, NY 10512 

(914) 225-0992 J 



for the TRS-80 from Micro-Mega 



The Original GREEN-SCREEN 




The eye-pleasing Green Screen Ins over Ihe front ol your 
TRS-80 Video Display and gives you improved contrast with 
reduced glare You get bright luminous green characters and 
graphics like those featured by more expensive CRT units 



Don't con/use the Original Green Screen with a piece ol thin 
film stuck to the lace ol your video tube such as that adver 
Used by others The Original Green Screen is mounted in a lull 
frame perfectly matched to the color and texture of the 
TRS-80 Video Display l! is attached with adhesive strips 
which do not mar your unit in any way 



The full frame design ol the Original Green Screen "squares 
oft" the face of your video display and greatly improves the 
overall appearance ol your system 

(Specify whether lor Model I, Model III, or Model IV) 



THE GREEN-SCREEN... $15 95 

Add $1.50 lor postage and handling 



Terms Check or m< 
shown lor postage a 






Micro-Mega PABox G26S • Arfngtan.Va SSSOB 
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FOR THE TRS80 MODEL 1 . 3 OR 4 
DOUBLE DENSITY 

WORLD'S FINEST DISK CATALOG 
FILING SYSTEM 

ARRANGER II is a VERY fast 100% Z-80 machine 
language sell contained master disk catalog 
filing program that ALFTOMATICALLY records 
disk name, date, density. DOS, free grans bytes 
track count andtypeofdisk (data or system) 
in SECONDS, or almost ANY disk REGARDLESS 
of DOS, density or track count or YOUR MONEY 
BACK! 

ARRANGER II can: 

'Use single, multiple, or double headed drives 
"Record 250 diskettes up to 250 tiles each 
'Add or update any disk in seconds 
'Add disks manually semi- automatic ally or 
fully automatic 

'Rename a disk at any time in seconds 
or delete it 
'Print disk labels 

"List your disk names or file names to the 
screen or printer in almost any manner you 
choose! 

Tind any program m less than 10 second^ 
*Sort 1500 files in 15 seconds! 
'Sort by any extension 
'Scan disks or files starting at any point 
'Search for any file using an 8 character 
wildcard or extension 

'List all iiles alphabetically to the screen or 
printer 

'Filter mode to look, search, print or sort only 
selected iiles 

ARRANGER II is completely independent I 
can even back myself up 
We believe the ARRANGER n to be tj>e Finest, 
Fastest. Easiest to use disk catalog filing 
program on the market! Available in one 
version for both Model 1, 3 and 4 in double 
density for $49 95 

Starter or Budget Version 

ARRANGER I 

Limited printing capabilities, reduced file 
capacity but still reads almost anything 
(upgradable) single or double density 



$29.95 

ARRANGER II 



World's finest catalog program, double density 
only $49-95 



CDC 
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Serious Software for the 80' s 

13715 Vanowen Street, Van Nuys. CA 91405 

(213)997-9692 



Toll Free Order (800) 692-5235 
TRS80 MODEL 4 
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IDOSTAMER 41 



I 
I 
I 




Never type another DIR: I , COPY ' 'FILENAME 1 ': 1 
TO "FILENAME M :0, PURGE u FILENAME ":0 f LIST 
"FILENAME": I, LOAD "FILENAME" (F 3), 
and on and on and on! 
Imagine over 200 commands that YOU define 
executed with ONLY ONE OR TWO KEYSTROKES' 
Instant sorted directories with 1 key Load 
Basic, protect memory, run your program with 
2 keystrokes List a file to the screen or the 
printer, print a directory, copy a file fiom one 
disk to another copy the entire disk, and 
much more 

Your DOS has a lot of great features The 
trouble is r you have to remember all those 
commands With DOSTAMER 4 those com- 
mands are 1 or 2 keystrokes away Nothing to 
remember and nothing to forget, fust use it' 
We use the SPECIAL features in YOUR DOS lor 
the GREATEST utility you'll ever want Once you 
use DOSTAMER you'll wonder how you got 
along without it Also available Model 1 & 3 lor 
DOSPLUS, LDOS, NEWDOS80, MULTIDOS 8t 
TRSDOS 1 3 (even works on LNW & MAX SO) for 
$49 95 complete with the easiest instructions 
you'll find By the way DOSTAMER is written in 
FAST Z 80 machine code 



SPECIAL 
INTRODUCTORY OFFER 



[ 
I 

j 

I 
I 

I 

I 
i 



$39.95 
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VisiCalc 

generate a control code. In LDOS, 
for example, holding down the keys 
shift downarrow generates the 
control code. In order to obtain 
compressed print on an Epson 
printer from VisiCalc, at the prompt 
SETUP string or enter, hold down 
the shift downarrow and O (capital 
O) and press enter. Be sure to 
perform this operation smoothly 
because of possible keyboard repeat 
problems. If you are running an 
operating system other than 
TRSDOS or LDOS, consult your 
documentation as to what 
keystrokes create control codes. 

TRSDOS 1.3 (Models III and 4m) 
users need to correct the instructions 
from the December column. The H 
character was missing following the 
SHIFT@ instructions. On page 72, 
next to last paragraph, the 
command SHIFT@HOF should be 
SHIFT@H0F. The command 
SHIFT@H1B SHIFT@14 should be 
SHIFT@H1B SHIFT@H14. On 
page 73, second paragraph, the 
command 1BSHIFT@0E should be 
1BSHIFT@H0E. On TRSDOS 6.x, 
Model 4, VisiCalc is quite different. 
Setting printer codes requires 
filtering and translation tables. 
That subject will be covered later. 

For Model II users, the technique 
is slightly different because your 
computer has escape and CTRL 
keys that are functional in VisiCalc. 
For example, to print in compressed 
print on a LPVIII or DMP 200, type 
the following key sequences with 
your cursor at the top left of the 
material to be printed (spaces have 
been added for clarity, but should 
not be typed): /PP press ESC 
CTELT enter and move the cursor to 
the bottom of the text to be printed 
and press enter. The CTRL key and 
T should be pressed together. To 
escape compressed print, type; /PP 
press ESC CTRLS enter. It is 
important to note that while 
pressing the ESC and CTRL T or S 
keys, there will be no evidence on the 
screen of any key entry. Be careful. 

Third, you have probably noticed 
that I switch between using a 
CTRLT sequence and SHIFT@H14. 
They are equivalent instructions. 

Finally, for all users of either 
DWII, LPVII, or Epson MX80 or 100, 
if you have found that the 
compressed code sequence works 
and would like a fairly complete list 



of printer control sequences, send a 
stamped, self-addressed envelope to 
me for more information in care of 
Basic Computing. Examples 
abound such as printing unidirec- 
tional on the Epson, double-strike 
printing, italics, etc. If you have a 
different printer that you would like 
to have control code sequences 
developed for, write to me for an 
estimate to develop those for you. 
Keep in mind that I use Model Ills 
and 4s that are totally "stock" Radio 
Shack machines with no modifica- 
tions or alternate operating 
systems. 

Update on Liaison 

Following the review of Liaison (a 
BASIC program which converts 
ASCII files into VisiCalc DIF files 
(and vice versa) and allows for 
sorting of both types of files) in the 
September, 1983 issue of Basic 
Computing, I received upgraded 
versions of the programs which 
incorporated virtually all of the 
suggestions that I made and a few 
more. A particularly helpful one is 
that at the appropriate times, the 
operator is given the name of the 
current file in memory and has the 
option of sending it out to a different 
drive than the one frbm which the 
file was loaded without rekeying in 
the filename. The author, David 
Kjell, is including (at no extra 
charge) on the current distribution 
diskettes, another nifty program 
(VF/DTK) he wrote which reads a 
VisiCalc VC file and allows the user 
to leave it in the current order or to 
sort it and then either display it on 
the screen or send it to your printer. 
With ths screen display, debugging 
large spreadsheets could probably 
be made much easier. VF/DTK is 
also available for separate 
purchase. For further information, 
contact David T. Kjell, P.E., 200 
Timberland Trail, Euless, Texas 
76039. 

That's all for this month. If you 
have a spreadsheet question or 
comment, please write to me in care 
of Basic Computing, enclosing a 
stamped, self-addressed envelope if 
you desire a prompt, personal reply. 
Matters of a general interest may 
become the subject of a future 
column. 

VisiCalc is a registered trademark 
of VisiCorp, Inc. 
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Program renumber and screen dump 



IC-10 



Dan Keen and Dave DIschert 



Those readers who sit down at their computer and 
develop programs off the top of their head know that the 
finished product usually winds up with erratic line 
numbering. If the program is solely for your own use, 
who cares? But if you are going to give the program to 
someone else or, perhaps, submit it to a magazine for 
publication, your program needs to have a nice 
sequential pattern. 

For those reasons, we decided to write a short 
renumber utility for the MC-10. The program is designed 
as a simple routine which can be part of any program, 
without sacrificing a lot of memory. 

Our renumber program modifies only the first 
through the last lines, but does not change the 
linenumber associated with such commands as 
IF. . .THEN, GOTO, and GOSUB. This could be done 
but it would require a lot more instructions to do it, and 
the machine does not have enough memory to handle it. 
Such a program would have to temporarily store all the 
old linenumbers and the new linenumbers. It would 
have to then search through all GOTO and GOSUB 
statements. 

Even though our MC-10 renumber routine does not 
have the ability to modify line references, it is an 
exceptionally short, powerful, and easy routine to use. 
We suggest you type in the routine, Listing 1, and save it 
on tape. Before you begin to write a program, load in this 
routine. That way it will be present at the completion of 
your work when you need it to clean up your 
linenumbers. As we mentioned, you will have to retype 
any lines which refer to other lines. 

How Renumber Works 

We discovered that the first address of any BASIC 
program on the MC-10 begins at address 17222. This, in 
conjunction with the following byte (17223), stores the 



memory location of the next instruction. Bytes 17224 
and 17225 store the BASIC linenumber. 

Now that we know these addresses, we can easily find 
the address of each BASIC line that follows. Perhaps it 
is best stated as: The beginning of the last line always 
points to the address of the next instruction. In our 
routine, line 2010 establishes Q as 17222, the first 
memory address. 

Execution then jumps to a subroutine which returns 
the address of the next line in variable Q. The current 
BASIC linenumber is LN, arrived at by Q+2 and Q+3. 
We used the variable LN to represent the current 
LineNumber and NL for the New Line. Also calculated 
are the most and least significant bytes of the new line 
you want. 

LN is checked to see if it equals 2000. Normally, the 
end of a BASIC program could be detected by checking 
for a zero as the reference to the next linenumber. Here 
we check for linenumber 2000 to prevent the subroutine 
from renumbering itself. This would destroy the routine 
since it contains GOSUB references which would not be 
changed. 

Obviously you must keep all of your program's 
linenumbers below 2000. This can be modified by 
changing the linenumbers in our renumber program as 
well as the value of LN in line 2030. 

The most significant byte (MSB) of the new 
linenumber is poked into Q+2 and the least significant 
byte (LSB) is poked into Q+3. The new linenumber is 
incremented by ten. The program is set to start counting 
with a linenumber of ten and to increment by ten. You 
can easily set it to any other values. 

With each pass of the subroutine (lines 2100 through 
2140), Q is advanced to point to the next line. The 
subroutine is executed as many times as necessary until 
all lines have been changed. 
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Screen Dump and Memory Dump 

One of the first things a hobbyist may want to do is 
explore his new MC-10's memory. Since not much 
material has been released regarding its internal 
workings, many hours of wandering through the 
machine's RAM and ROM are at the top of the list for 
new MC-10 owners. 

In order to make peeking around in memory a simple 
task, we created the memory dump program in Listing 1. 
Using this program is much easier than typing PEEK 
for every address you wish to examine. Also, the 
printout is formatted to fit nicely on the screen for quick 
and clear viewing. 

The screen format is laid out in three columns of data. 
Each column consists of three values. The left-most 
number is the decimal value; the middle is the 
hexadecimal code; the right character is the ASCII 
equivalent. 

Non-printable characters, such as carriage returns 
(ASCII 13) are suppressed and only the decimal and hex 
numbers are shown. 

The program first prompts you with "ENTER 
STARTING LOCATION", at which point you type the 
decimal value of the address you wish to begin 
examining. If you choose an odd memory address value, 
the program will subtract one from it to keep the starting 
address on an even location. We did this because, 
generally, references on the 6803 are on even addresses. 

Each screen shows 32 bytes of memory at a time, 
making a nice symmetrical video layout. Three keys 
command all functions. Hit the enter key to continue 
incrementing through the memory and see the next 32 
bytes. The "S" key restarts the entire program, 
returning you to the "ENTER STARTING 
LOCATION" prompt. If you have a printer, hitting "X" 
will give a screen dump of the video. 

The screen dump option is of particular value and you 
may wish to incorporate that section into your own 
programs. Creating a screen-to-printer dump is not as 

Figure 1 Sample Screen Dump 
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DUMP 32 TO 1 
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32 20 




33 


21 






34 


22 


86 


•35 23 


* 


36 


24 
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37 


25 


% 


38 26 


& 


39 


27 
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40 


28 
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41 29 
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42 
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* 




43 


2B 


+ 


44 2C 


^ 


45 


2D 


- 




46 


2E 


© 


47 2F 


/ 


48 
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49 
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1 


50 32 


2 


51 


33 


3 




52 


34 


4 


53 35 


5 


54 


36 


6 




55 


37 


7 


56 38 


8 


57 


39 
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58 


3A 


• 
e 


59 3B 


i 


60 


3C 


< 




61 


3D 


= 


62 3E 


> 


63 


3F 


? 




64 


40 


§ 


HIT 


ENTER 


TO 


CONTINUE 




S TO RESTART 


X TO 


PRINT 


VlD 



easy as it sounds on the MC-10. Lprinting CHR$ values 
that are obtained by peeking the video memory will 
result in mostly garbage on the paper. This is due to the 
fact that the MC-10 apparently does not store all 
characters in their usual ASCII code format. Normally 
you can print or lprint using CHR$ and there is no 
problem since the BASIC interpreter takes care of 
restoring the values to their proper ASCII equivalent 
characters. 

Lines 1100 to 1190 comprise the screen dump 
subroutine in which we perform the necessary 
mathematics to enable a peeked value from the video 
memory to have its ASCII equivalent character printed 
on a printer. These lines could be added to any BASIC 
program where a screen dump is necessary. It is a totally 
stand-alone routine called by a GOSUB command. 

Figure 1 shows a sample of a screen dump taken 
during use of this program when an examination of the 
block of memory from 32 to 64 (decimal) was in progress. 

Finally, we would like to point out to inexperienced 
programmers that the routine in lines 250 and 260 do the 
actual hexadecimal conversion and you may be 
interested in the technique we employed. In line 10 we 
establish N$ as being equal to every value which is 
possible under base 16. By doing a little math and some 
MID$ manipulating, a hexadecimal "string" value can 
be obtained from a known decimal number. In line 250, 
the variable M represents the most significant nibble 
and L the least. 

For the MID$ trick to work, we had to add one to the 
most and least values. If L was zero, an illegal function 
call would result when the MID$ of position zero was 
attempted, since zero is not a valid position number. 

Line 270 insures that a four digit string value will 
always be produced. By doing so it maintains straight 
columns on the screen when printing hex numbers. 
There is no PRINT USING command on the MC-10 so 
we opted for this trick. 

Armed with this program, you can begin your search 
through the internal mysteries of the MC-10. Happy 
hunting! 

Listing 1 MC-10 Renumber Utility 

200 REM * * RENUMBER * * 

2010 Q=17222:NL=10 

2020 GOSUB2100;PRINTN,LN 

2030 IFLN=2000THENEND 

2040 POKEQ+2,M;POKEQ+3,L 

2050 NL=NL+10;Q=NsGOTO2020 

2100 N=256*PEEK(Q)+PEEK(Q+1) 

2110 LN=256*PEEK(Q+2)+PEEK(Q+3) 

2130 M=INT(NL/256) :L=NL-256*M 
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2140 RETURN 

3000 FORA=65TO70:CSAVECHR$(A) 
:NEXT:END 



Listing 2 — MC-10 Memory and 
Screen Dump Routine 

5 CLS 

10 CLEAR1000:N$="0123456789ABCDEF n 

20 PRINT "MEMORY PEEK IN HEX & ASCII" 

30 PRINT" WRITTEN BY DISCHERT/KEEN 10 

40 PRINT" 05/27/83" 

50 PRINT: INPUT" ENTER START LOCATION "; 

LO 

200 IF INT(LO/2)OLO/2THENLO=LO-1 

210 CLS3sPl^IN 1 T"MEMORY DUMP";LO;" TO";LO+ 

32 

220 PRINT sFORX=LO TO LC+32 

240 I=PEEK(X) 

250 M=INT(l/16):Ii=I-16*M+l!M=M+l 

260 H$=MID$(N$,M f l)-»MID$(N$ f L,l) 

270 I$=" "+STR$(l)sI$=RIGHT$(l$,4) 

300 IFSV*=0THENPRINTI$;" ";H$; :IFK>13THE 

NPRINT" ";CHR$(l); 

310 IFSW=1THE3SIPRINTTAB(10)I$;" ";H$;:IFI 



<> 1 3 1 3 r fflENPRINT" " ? CHR$ ( I ) ; 

320 IFSW=2Tl-IEI^PRIN r ITAB(22)l$;" ";H$;:IFI 

< > 1 3THENPRINT" " ; CHR$ ( I ) : GarO340 

330 IFSW-2THENPRINT 

340 SW=SWfl : IFSV*=>3THENSV*=0 

350 NEXT 

400 PRINT" HIT ENTER TO CONTINUE" 

410 PRINT" S TO RESTART X TO PRINT VID" 

420 GOSUB 2000:IFIK$="S"THENRUN 

430 IFIK$= ,, X , 'THENGOSUB1100:GOTO400 

440 IF ASC(IK$)=13THEN LO=LCH-32:GOTO210 

500 goto 420 

999 END 

1000 EDRA=65TO70sCSAVE"HEXDUMP"-k:HR$(A)s 
NEXT 

1010 END 

1100 FOR Ar=16384T016895STEP32 

1110 FORB=0TO31 

1120 S=PEEK(A+B) sW=S~64;IFW>31ANDW<96THE 

NLPRINTCHR$ (W) ; :GOTO1140 

1125 IFS>31ANDS<96THENLPRINTCHR$(S);:GOT 

01140 

1130 LPRINT" "; 

1140 NEXT 

1190 LPRINT: NEXT: RETURN 

2000 IK$=INKEY$ s IFIK$=" "THEN2000 

2010 RETURN 



70 INCOME TAX PROGRAMS 

(For Filing by April 15, 1984) 

TRS-80* Models I, IS, III, 4, 12 & 16 

(Also for APPLE 3.3 DOS) 



For the Tax Preparer, C.P.A., Lawyer 
and Individual. 70 Tax Programs on 13- 
5 1/4", Format disks, or on 3-8" Format 
disks. Order only the disks you'll use 
Programmed for easy-use. Follow the 
Form or Schedule closely. Check-points 
along the way. Results on screen be- 
fore printing. 

70 TAX PROGRAMS include: Forms 
1040, 1040A, 1040EZ, 1120, 1120S, 
1065 and 1041 . Schedules A, B, C, D, 
E, F, G, R, RP, SE and W. Forms 1116, 
2555,2106,2119,2210,2440,2441, 
3468,3903,4136,4137,4255,4562, 
4684, 4972, 4797, 5695, 5884, 6251 , 
6252 and 6765. Order only the disks 
you need. 

Also we have TAX PREPARER HELPER- 
includes 12 PROGRAMS such as IN- 
COME STATEMENT, RENTAL STATE- 
MENT, SUPPORTING STATEMENT, IRA, 
ACRS, 1040/ES, ADD W-2's, PRINT 
W-2's and others. 

TRY ONE DISK AND SEE FOR YOUR- 
SELF. 5 1/4" DISK IS $24.75; THE 8" 
DISK IS $29.75, BOTH POSTPAID. 



Write:— 
GOOTH TAX PROGRAMS 

931 So. Bemsston • St. Louis, Mo. 63105 

*T.M.Reg. by Tandy Corp. Ft. Worth, Tx. 

#27 



FEATURES: — 

1. Menu Driven 

2. "Save on Disk" 

3 BASIC, Unlocked, Listable 

4 Name/SS No. IF-S carried 
over 

5. Inputs on screen before 
printing 

6. I.R.S. approved REVPROC 
format printing 

7. Prints entire Form/Schedule 

8. Calculates Tax etc 

9. For Mod. HI/4, CONVERT 
10. For Mod. 12/16, use 2.0b 
11 Use GREENBAR in Triplicate 

— don't change paper all 
season! 

12. Our 5th Year in Tax 
Programming 

13. We BACK-UP our programs' 
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Introducing 

SECURITY VALUE MONITOR 



^COMPLETELY MENU DRIVEN 
°FAST AUTO-RETRIEVAL OF MARKET QUOTES FROM 
DOW JONES NEWS/RETRIEVAL® 

^ABILITY TO RUN AT 300 OR 1200 BAUD 
•INSTANT UPDATING OF EACH PORTFOLIOS' MARKET VALUE 
'HANDLE ANY COMBINATION OF STOCKS, OPTIONS, WARRANTS, 
BONDS, MUTUAL FUNDS OR U.S. TREASURY BILLS 
-HANDLE LONG AND SHORT POSITIONS 
*EASY ACCESS TO DOW JONES NEWS/RETRIEVAL'S® 

FULL MENU OF INFORMATION SERVICES 
"PRINTS ANALYSIS OF EACH PORTFOLIO 



PRICE $249,95 



6/83 

NAME _ 
ADDRESS. 
CITY 






_STATE_ 



.ZIP. 



PHONE ( 

□ check 

CARD NO _ 



□ moneyorder Dvisa 

EXP DATE _ 



□ mastercard 
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TO ORDER CALL 

(803) 787-7256 

TELEX 466528 



OR MAIL COUPON TO: 

EHLEN ENTERPRISES 
6319 BRIARW00D RD. 
COLUMBIA, SC 29206 



'Account Purchased Separately trom Dow Jones & Co . Inc 
DOW JONES NEWS/RETRIEVAL is a registered trademark ol Dow Jones & Co , Inc 
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Reading your data and some short but 
useful programs 



For all models 



Karen Matthews 



Three key BASIC statements (READ, DATA, and 
RESTORE) combine to allow you to store data to be used 
by your program within your program. This can be 
helpful for situations where you don't wish to read the 
data from an external device like a disk drive or cassette 
recorder. You can read your program and the data into 
the computer at one time. 

The READ statement is of the format: 
READ variable (, variable, , , . variable) 
It causes the program to read the value currently pointed 
to in the DATA statement and store the value in the 
variable specified. The DATA statement has the format: 
DATA value (, value, . . . value) 

Each value must be separated by a comma except the 
last. DATA statements may be placed anywhere within 
the program as they are ignored by the program until 
needed. The RESTORE statement is of the form: 
RESTORE 

There are no parameters to the RESTORE statement. It 
is used to reset the DATA pointer to the beginning and 
may be executed many times within a program. 

Let's look at a simple program: 
10 FOR X = 1 TO 10 
20 READ Y 
30 PRINT Y; 
40 NEXT X 

50 DATA 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 
Lines 10 and 40 contain a loop that is executed ten times. 
Line 20 READS a value from the DATA statement and 
line 30 outputs the value. Notice that the program skips 
over line 50 and that line could be placed anywhere 
within the program. The output should be: 
2 4 6 8 10 12 14 16 18 20 

If we had forgotten a value in line 50, we would have 
received an "out of data" error from the computer. 

Now, let's use the RESTORE statement. 
10 FOR X = 1 TO 10 
20 READ Y 
30 PRINT Y; 
35 RESTORE 
40 NEXT X 

50 DATA 2, 4, 6, 8, 10, 12, 14, 16, 18, 20 
The output is: 
2222222222 

The RESTORE statement always moves the DATA 
pointer back to the beginning value in the first DATA 
statement. 
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Let's look at another program: 
10 DATA 1,2,3,4,5 
20 READ A 
30 READ B 
40 READ C, D, E 
50 PRINT A;B;C;D;E 
The output is: 
12 3 4 5 

This shows that the DATA statement may be placed 
anywhere and that the READ statement may be 
executed many times as the computer keeps track of 
which DATA item to READ. 

We're not limited to only integer data, we can also use 
string or character data. We might do something like 
this: 

10 FOR X = 1 TO 4 
20 READ A$ 
30 PRINT A$ 
40 NEXT X 

50 DATA I , LIKE , MY , COMPUTER! 
This will produce: 
I LIKE MY COMPUTER! 

Notice that in the DATA statement, there's a blank 
after each word before the comma. If we didn't include 
the blank, we'd obtain ILIKEMYCOMPUTER! Quotes 
must surround any string data that contains a colon, 
comma or leading blanks. 

Of course, data types can be mixed within a READ or 
DATA statement. You could keep your entire 
Valentine's Day card list in DATA statements. 
10 FOR X = 1 TO 3 
20 READ NA$, AD$, ZIP 
30 PRINT NA$, AD$, ZIP 
40 NEXT ZIP 

50 DATA "BASIC COMPUTING","TACOMA, WA", 
98409 

60 DATA "BLOW, JOE","ANYTOWN, MT",10101 
70 DATA "ROACH, JOHN", FT WORTH, TX", 76101 

This would generate an output of: 
BASIC COMPUTING TACOMA, WA 98409 

BLOW, JOE ANYTOWN, MT 10101 

ROACH, JOHN FT WORTH, TX 76101 

It would be interesting to create a short program that 
could print labels and keep track of who sent cards back. 
Note that the commas enclosed in the quotation marks 
are part of the data to be read and not part of the DATA 
statement syntax. 
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Since you will probably not know exactly how many 
items are in your data file at one time, the last item is 
usually marked with some ending flag. This allows you 
to "look" through all the items in a data list without 
worrying about an "out of data" error. This end flag is 
an absolute must when using a FOR loop to match up an 
item in a data list. The code is something like this: 
10 INPUT A$ 

20 IF A$ = "QUIT" THEN STOP 
30 READ B$ 

40 IF B$ = "END" THEN 60 
50 IF A$ = B$ THEN 80 ELSE 30 
60 PRINT "SORRY, ";A$;" IS NOT IN THE LIST." 
70 GOTO 90 

80 PRINT A$; " IS IN THE LIST." 
90 RESTORE 
100 GOTO 10 

110 DATA MONTANA, WASHINGTON, NEW YORK, 
OREGON, ALABAMA, END 

A typical session might be: 
7MONTANA 

MONTANA IS IN THE LIST. 
?NEW YORK 

NEW YORK IS IN THE LIST. 
7ARIZONA 

SORRY, ARIZONA IS NOT IN THE LIST. 
7QUIT 
Break in 20 
READY 
> 



EfiSYPRO 

Word Prow 



ONLY 




Many have compared Easypro 
favorably to the most popular 
TRS-80 word processors. 



Easy to use Full screen editing Written in fast 
machine language code Can accept text at the 
rate of 64 characters per second Any printer 
that can use the BASIC'S LPRINT without 
auxiliary software will work with this word 
processor 

Dynamic display of line number, cursor position 
and end of text line appear on the first line of the 
video display Prompts will also appear on the 
first line to assist the user in implementing 
various processor commands DOS error mes- 
sages appear on the first line Repeat key User 
selectable repeal key rate 
Global find Global search and replace or delete 
within text or block Block move copy or delete 
of text 

Single keystroke inserlionldeletion of character or 
line Scrolling by line or page up or down Scrolls 
at the rate ol 20 lines per second Scrolls also 
page by page 1 1 5 lines lo a video pagel Scrolling 
will wrap around to the top or bottom of the 
buffer Enter the line number and lump to that line 
in the buffer 

Set tab positions as on a typewriter Bi direc 
tional tabbing Underline expanded characters 
control character pilches enhanced type con 
densed type intermix printer controls including 
right lustily margins etc within a line User 
definable headers and page numbers 

New revisions can be purchased for $6.00. Include the old 
disk or cope with check or money order 

TRS80 MODEL I, OR MODEL III. DISK (48K) OR TAPE (32K OR 48K) 



User-definable left margins, line length (3 to 
2551 page length, and form length All imbedded 
within the text for dynamic printer control 
Upper/lower case printout (on printers that 
accept lower case) even on computer videos that 
don't display lower case 
Dynamic printer control of margins, line length, 
type size fonts page length The dynamic control 
of the margins will allow indenting so that 
outlines may be printed and still be properly right 
Itistified Permits embedding ASCII printer 
commands into the text 

Save printer control codes to he used and applied 
to defined mnemonics Prints text to nearest 
word or right pislifies User can control right 
margin Printout lines with lengths of up lo 255 
characters 

Block load and insert or append Block or total 
save to user specified files Exit program lo issue 
DOS commands and then return to the text 
intact 

Full screen editing ol BASIC EDTASM or other 
ASCII files Stores text in standard ASCII format 
Edit load and save files larger than the buffer 
size and still load or save blocks ol text to files 
other than the open die Works with TRSOOS 
TRSDOS III LDOS MUITIDOS DBLDOS and 
other common operating systems 
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1 1 Hampton Court 
#29 Lynnfield, MA 01940 



Together, DATA, READ and RESTORE add great 
flexibility to your programs. The uses for internally- 
stored data are almost limitless. For our last program, 
let's combine all the principles we've covered into a 
conversion program. The conversions are stored in the 
DATA statements at the end of the program. As written, 
the program will convert from feet to inches, or inches to 
feet. It will be very easy to add conversions by simply 
adding DATA statements. 

5 CLS 

10 PRINT : INPUT "CONVERT FROM, HOW 

MANY":A$,Z 

15 IF A$ = "QUIT" THEN STOP 

20 INPUT "CONVERT TO";B$ 

30 READ C$, XF, D$ 

40 IF C$ <> "END" THEN 70 

50 PRINT A$;" TO ";B$;" CONVERSION NOT 

FOUND" 

60 RESTORE : GOTO 10 

70 IF (A$=C$) AND (B$=D$) THEN 90 

80 GOTO 30 

90 PRINT Z;A$;" EQUALS";Z*XF;B$ 

100 RESTORE : GOTO 10 

110 DATA INCHES,.08333333,FEET 

120 DATA FEET,12,INCHES 

999 DATA END,0,END 

I would enjoy receiving your hints or questions, write 
to me at Basic Computing and include a self-addressed, 
stamped envelope. That's it for this month. 



The LISP system is built around a fast LISP interpreter with 
180 functions that cover a full range of applications. The sym- 
bolically oriented editor features MACRO definitions and func- 
tions that find and substitute. The system diskette, which runs on 
the TRS-80 models I, IN and IV, also includes the poker player 
(non-graphic version), and a differentiator and algebraic 
simplifies The complete system with 100 pages of document- 
ation sells for $79.95. 



PAi/rn 
UKbn 

Creates up to four computer 
generated opponents who play a 
mean game of five-card draw. 
An expert system responds to 
your playing style making the 
game a real challenge. The 
graphics and easy-to-follow 
directions make this an ideal 
game for beginners and experts 
alike. TRS-80 models I, III and IV. 
One disk drive and 48K re- 
quired. $29.95. 



To order send check or money order and please specify model 
(Washington state residents add sales tax) 




©1983 
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For more information or a free brochure call 206/644-3068 or write 
Artificial Intelligence Technologies, 2121 NE 152nd, Redmond 

WA98 ° 52 A R T I F , C 

INTELLIGENCE 

IS OUR 
MIDDLE NAME. 



INTELLIGENCE 

TECHNOLOGIES 



*TRS-80 is a trademark of Tandy Corp, 
#30 
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Tandy topics 



New Model 2000 software and a Model 100 
telephone dialing program 



For all readers, Model 100 program 



Ed Juge, Director of Merchandising, Business Computer Products 

1500 One Tandy Center, Ft. Worth, TX 76102 



The Tandy 2000 introduction at 
Comdex in November was a success. 
We held it on Wednesday, November 
30, at Caesar's Palace in Las Vegas, 
Nevada. At 9:00 a.m., we had a press 
conference, followed by demonstra- 
tions of some of the major software. 
Attendees asked questions of us and 
the software vendors who helped us 
get the software ready. Then at 1 1 :00 
a.m., a group of financial people 
came in for just about the same 
show. That night, we hosted a 
gathering for the Tandy Business 
User's Group and our Third Party 
Software vendors who were in 
attendance. The T-2000's were 
"unveiled" at noon in our booth on 
the convention floor, and drew quite 
a crowd. Several people told us the T- 
2000 was without a doubt the 
introduction of the Comdex show! 

As expected, one of the first 
questions was, "Why not 100 percent 
IBM-PC compatibility?" As I 
indicated in January, it made no 
sense to design something less than 
the best that our engineers, and 
current technology, would permit. 
Why maintain compatibility with a 
two-year old machine that could be 
up- or out-dated at any time by its 
maker? The Tandy 2000 runs any 
MS-DOS software which respects 
the MS-DOS operating system, but it 
also benchmarks out at almost three 
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times the speed of the IBM-PC, with 
two to four times the disk storage 
space, more memory, twice the 
graphics resolution in twice as 
many colors, and at a lower cost. 

Another question we were asked, 
and one that will be of interest to 
present TRS-80 owners, is "How do 
we expect the Tandy 2000 to affect 
our other computers?" Well, we 
know it will have some effect. How 
much, we don't know, but we don't 
expect it to be major. The T-2000 is a 
top-of-the-line "personal" or 
"professional" computer. The Model 
12/16 family, for example, are more 
data-processing oriented. A person 
who wants a computer that can 
grow to multi-user or networking, 
will still choose (we think) the 12/16 
family. Those who have been buying 
the Model 12 as a "personal" 
computer, will probably migrate to 
the T-2000. Of course, the Model 
4/4P is a much lower-cost family, 
which should keep right on going, 
except for those who find the T-2000 
irresistible enough to move up. So, 
we don't expect any of the above to 
go away because of the T-2000. 

John Dvorak (gossip columnist 
for Infoworld) speculated that the 
reason we weren't 100 percent 
compatible with the PC was because 
eating too much Texas chili fogs the 
brain. The general reception of the 
Tandy 2000 was so good, in fact, that 



I probably should send John a can of 
Texas chili — it appears it may be a 
lack of chili that fogs the brain! 

Ovation Software 

I mentioned last month that we 
were looking at some really 
breathtaking integrated software 
for the T-2000. We announced a 
product called "Ovation," from 
Ovation Technologies. Is it 
something! You really have to see it 
to appreciate it. 

Where most other integrated 
(spreadsheet, word processing, 
database, graphics and maybe 
communications) packages work in 
what could be described as a 
"spreadsheet environment," 
Ovation works in more of a word 
processing environment, but it is 
completely "mode-less." There is no 
switching from one mode to another. 
There's a menu of just over 30 plain- 
English commands, which appears 
down the left-hand side of the screen 
when it is called. As you step down 
the word list with your cursor, an 
extended one-line explanation of the 
selected word overlays the screen. 

Let's say you've typed a letter, and 
decided to graph some sales 
projections you included in your 
text. Select GRAPH, and you'll be 
asked what kind of graph you want. 
Select PIE, and a section of the 
screen is blanked, with a circle on 
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one side, with a question asking 
what numbers you want to graph. 
You can use the cursor to point to 
them in the letter (which is still 
totally active, Useable, and 
scrollable in the other part of the 
screen). As you point to each 
number, the graph is drawn in real 
time. When you tell Ovation you're 
finished, it gives you back the full 
screen word processing display, and 
asks where you want the chart. You 
point to opposite corners of the area, 
and Ovation instantly puts the 
chart in, and reformats your text 
around it! Should you change one of 
the numbers in your text (on which 
the chart is based), the chart is 
instantly re-drawn. This isn't done 
by exchanging data between 
windows. There are no windows. It's 
all integrated in the most elegant 
sense of the word! The chart can be 
in color, right there in your letter! 
That's something the IBM-PC 
version won't be able to do, due to the 
PC's graphics limitations. That's 
just a sample of what Ovation is. 
You have to see it to believe it! Oh 
yes, it is planned to read in Lotus 1-2- 
3 (and other) files and formulas. 

The Tandy 2000 and IBM versions 
(our package will contain both 
versions) should be available by 
early summer, although the internal 
target dates are sooner. 

Non-Radio Shack Software 
Available Through Stores 

Yes, that's right. You'll soon be 
able to go into ope of our stores and 
order non-Radio Shack software, for 
shipment to the store within 24 
hours! They won't carry a Radio 
Shack logo at all. We will stock the 
software in a Fort Worth warehouse. 



I've talked to a number of software 
vendors, all of whom have expressed 
a strong interest in participating. 

Now, there are two things about 
the program that must be made 
clear. First, we won't stock just any 
program. We have to watch 
inventories just like any other 
retailer. We intend to carry proven, 
popular items only, from reliable, 
top-notch companies. Secondly, 
after-the-sale support will be only 
from the vendors, not from Radio 
Shack. There will be instructions in 
each package, telling you if you 
have a problem, where to call for 
help. Our customer service people 
will not know anything about these 
packages or how they work. 
Obviously some of our people will 
have verified that they do work, and 
any product we get repeated 
complaints about will be pulled from 
the program. These packages will be 
listed in our future catalogs and 
you'll see some of them in our 
advertising. It's a great departure 
for us, and we're excited about it! As 
of this writing, I've still got a lot of 
logistics to iron out, but the program 
should be in operation within the 
next couple of months. 

Model 100 Telephone Dialer 

At the risk of boring you non- 
Model 100 owners, I'm going to 
subject you to another one of my 
non-professional programs. Those 
of you who use the TELCOM 
program and have a switchboard to 
contend with at your place of 
business, know that there's a 
problem! If you want to be able to 
dial Dow Jones from home or work, 
you have to 1) modify your phone 
number to include or exclude the "9" 



UPGRADE? BUY? AN OLD COMPUTER? 







Brand New!! 

One YEAR Guar!! 



(open late) 



call dick (212) 232-3500 
something special sales co. 
#31 68T5-A New Utrecht Ave, Brooklyn, n,y. 11228 

THIS ONE RIVALS THE BIG BOXSl! 
ALL THESE "UPGRADES" TOULD COST MDRE THAN A BRAND NEW LNW COMPUTER! 



it takes to get an outside line 
through the switchboard, or 2) have 
two separate listings in your 
ADRS.DO file. If you have an 
extensive phone number file and 
travel, there's one more problem; the 
"8" access code required by most 
hotels, for a long distance number. 
Well, here's one I call PBXCHG.BA, 
which handles the problem rather 
well. To set it up, you need to: 

1) In line 20, set FW$ equal to "1-" 
plus your area code (FW$="1-817-" 
for ours). 

2) In line 20, if you're on a 
telephone system like Centrex, 
which allows you to dial in-house 
numbers with only the last four 
digits, set PF$ equal to your first 
three in-house telephone digits (our 
numbers are all 390-nnnn, so forme, 
PF$="390-" ). If you're not, set 
PF$="000-", or some unused prefix. 

3) Your ADRS.DO file must 
contain phone numbers immediate- 
ly preceded, and followed, by colons. 
Don't use spaces before or after the 
number! The listing should look like: 
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Industries Finest ... 
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mg -v ■ ,;: : : --:.-sfcfc : ,:::3> 
AC1FA PE 611 


Retail 


Your Cost 


C-05 99$ 
C-10 s 1 29 
C-20 $ 1 59 
C-30 s 1 89 
Cases 49$ 


55$ 
59$ 
69$ 
89$ 
21$ 



Packed 24 Per Pack 
UPS *3°° Per Pack 48 States 
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2665 S. Busby Road 
Oak Harbor, Wash. 98277 



IMMEDIATE 

SHIPPING 

(206) 675-6143, 
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TREND ANALYSIS PROGRAM 

A COMPUTER AID FOR INVESTORS 

Calculates moving averages, exponential 
averages, time-weighted averages, and percent 
deviation from trend. Uses your printer to 
make graphs with linear or logarithmic scales 
of your choice. Creates & maintains disk data 
files. 

Ideal for technical analysis of stocks, options, 
commodities or any numerical series. Supplied 
on disk with 6 years of daily NYSE Composite 
Index prices and 52 page Users Guide. 

For TRS-80 Models I, III or IV. Requires 48K, 
two disk drives and printer. 

Other compatible software available to handle 
market breadth indicators, advance-decline 
lines and corrections for dividends and splits. 
Historical data also available on disk for long 
term market research. 



rt> a q Postpaid in 
<J>4o USA, Canada 
Add $7 elsewhere 
Free Brochure 
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Harley D. Wilbur 

9709 Elrod Road 

Kensington, Maryland 20895 

(301) 949-8131 after 6 p.m. 
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SOFTWARE 

for the 16K TRS-80 

Easy-to-use software for models l/lll with tape disk 
or network Complete manuals plus on-screen instruc- 
tions As simple as typing CLOAD and RUN 

Each program recorded twice on a separate side of a 
quality long-lasting cassette 

CLASSROOM PACKS. Each has 4 programs in a subject 
area and permits self-paced study with unlimited 
running time Choice of review or self-test modes plus 
progress reports and help feature Missed questions 
are corrected and recalled until learned Price S44.95 
each. 



• 


Geography I 


• Driver Education 


• 


U.S. Government I 


• Electro 


nics I 


• 


U.S. History I 


• Music 


Theory I 


Othe 


r outstanding cassette software 




• 


Logic Games Package 




$24.95 


• 


Anagrams 




$19.95 


• 


Scramble-Grams 




$19.95 



30-DAY GUARANTEE 

AI loca! dealers or order direc! 

Br *& <T\^5* ?£r?* *r& ^!!E* 9 ^r*H W»Jf v^5 «ft~=5J 

Classroom Software 

3-42 West Robert E. Lee 
New Orleans, LA 70124 

MC & VISA include card # and expiration date Free 
shipping on prepaid and credit card orders Others add 
$1 50 per package 



Tandy Corporation :l-817-390- 
3700: followed by whatever you like. 

4) Your telephone listings must 
contain dashes as shown above. 

Other information, such as any 
listing without a phone number, 
shouldn't have colons at all. For 
example, if you're using EMAILR. 
EJ from CompuServe's Model 100 
SIG to send automatic EMAIL, an 
EMAIL address only listing would 
be: 

Ed Juge [70007,1365 

No colons; PBXCHG will bypass it 
entirely. 

5) And finally, PBXCHG uses 
ASD.DO as a scratch file, so you 
shouldn't have one by that name. 

Using the program is as simple as 
running it. It prompts you for 
"Access Code Desired," which you 
answer one of 3 ways: 

1) Press enter if you just want the 
straight numbers dialed. All 
numbers are dialed without prefixes, 
except for the ones you've entered to 
be long distance ("1-xxx-"). 

2) Enter "9" to dial through your 
switchboard. All numbers are dialed 
as above except for a "9-" prefix, and 
if you've set it up, only the last four 
digits of in-house numbers are 
dialed. 

3) Enter "8" if you're in an out-of- 
town hotel. In this case, all your 
hometown numbers are prefixed by 
"8-1-area code-." 

Sorry, I didn't make provisions to 
handle local (when you travel) 
numbers normally in your 
ADRS.DO file with "1-area code-", 
but then I'm sure those of you who 
need to can refine the program to 
suit your specific needs. The 
program actually modifies your 
ADRS.DO file each time you run it. 
Mine has about 2.4K of addresses 
and it takes about 12 seconds to go 
through the whole thing. The 
program is given in Listing 1. 

A parting word. The editor told me 
a while back that this column rated 
on a reader survey as "most often 
read." I'm amazed, and I thank all 
you readers (and voters), very 
sincerely. If there are any subjects 
you'd like to see discussed or cussed 
in "Topics," please drop me a line, 
and just say . . ."How about 
discussing xxxx in Topics 
sometime?"I get no requests now, 
and would like very much to provide 
the kind of information you want. 



Please forgive me if I don't answer 
your letter until you see it here. 
Thanks again. See you next month. 



Listing 1 

10 CLS : CLEAR1000 : MAXPILES= 

2 

20 PF$="390~-" : FW$="1-817-" 

30 PRINT@169,"Access (Me 

Desi red " ; • INPUTP? : I PP$= " " 

THE2S50 

40 TFINSTR( "89" , P$ )THENP$== 

P$+"-"ELSE.10 

50 OPEN" adrs . DO"POPJNPUTAS 

1 

60 OPEN"ASD .DO"K)ROlJTPUTAS 

2 

70 IFP$=""THKN170 

80 REM ADD PREFIX 

90 GOSUB230 

100 GOSUB2 50 : IFG=0THEN160 

110 GOSUB260:P1$=P$ 

.120 IFMI1)$ ( IN$ ,0+1,1)0 "1 " 

ANDP$= "8~ "TI-rENPl$=Pl $+FW$ 

.130 IFMID$(IN$,C+5,1 )<>":" 

THEN150 

140 IFP$="9-"THENP1$=" "ELS 

EP1$=P1$+PP$ 

1.50 IN$=L$+P1$+MID$ ( IN$ , C+ 

1) 

1 60 PRT MT# 2 , IN$ : GOTO90 

170 REM REMOVE PREFIX 

180 GOSUB230 

1 90 GOSUB2 50 : IFG=0THEN2 20 

200 GOSUB260 

210 IFM1D$ (IN$ , C+5, 1 ) = " : "T 

HEN1N$=L$+PF$+MID$ ( IN$, Ol 

) 

2 20 PRT NT# 2 , IN$ : GOTO1 70 

230 IFEOF ( 1 ) THEN300 

240 0=0 : LI NE INPUT* 1 , IN$ : RE 

TURt>f 

2 50 G=INS TR( 1 , IN$ , " : " ) : L$= 

LEFT$ ( IN$ , C ) : RETURN 

260 IFMID$ ( IN$ ,0+2,1 ) ="-" 

ANDiyHD$(lW$ / C+l # l)> l, l" THE 

NIN$=L$+MID$ ( IN$ , C+3 ) 

270 IFMID$ (IN$, C+l ,6 ) =FW$T 

HENIN$-L$+MID$ ( IN$ , C+7 ) 

280 IFMI D$ ( IN$ , C+l , 4 ) =PF$T 

HENINS=L$+MID$ ( IN$ , C+5 ) 

290 RETURN 

300 CLOSE : KILL" ADRS . IX) 

310 NAME"ASDJX)"AS"ADRS.DO 
ti 

320 MENU 
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UTILITIES 
BILLING PROGRAMS 

Gas, Water 
Sewage, Garbage 

Goodman's 

Computerized Business 

Services 

Paul G. Goodman 

Box 203 

Miami, TX 79059 

(806) 868-5661 



BfflCLfiV kUHVTE 
PiSSDCiPiTES 

WDRDPRDCHll 
UEPiSiDn 3-D 

Sasie plus machin* language Word Procossor 

TRS-8CT Model l/IH 48K Disc 

, >j ** v0a Now you can am bad 

' v control codas in your taxt for 

Superscript- 

Subscr, P/ Underline 

Italics More """ta^ 

«w ""«* 

v .*°° S14-95 each, with disc "°" 

$10-95 each, documentation only 

EfifiCLfiY UJHVTE ASSOCIATES 

P.O. Box 948, 

New Westminster 

B.C. Canada. V3L 5C3. 

Add $1-00 for postage 

B.C. Residents add tax at 6% 

'Trade mark of Tandy Corporation 

' 'Trade mark of Epson America 




IMAI :! 

An Income Tax Program for 

•Trademark of $^44 TRS-80'"" 

Tandy Corp ma Mod. I & III 

That's the pro-rata cost of our excellent tax 
program when you buy BAPS SUPER-9 
package for $21 .95. Simply enter earnings, 
deductions, capital gains. The program 
computes tax due or refund. The other 8 
programs include 2 great games —OSCAR 
DRAFT (flight simulation with navigation) 
and WIZARD'S CITY (adventure) - and 
Income/ Deductions, Financial Statement, 
Mail List, Mileage, Income/Expense and 
Stock Charting. 

9 PROGRAMS! $175 VALUE! 

bap$ $*J4 95 

SuSeb ™ ■ D|SK 

,c ~ ::;: ' Price includes disk 

Add $1.50 shipping 
6011 San Felipe 
Houston, TX 77057 
713/783-3433 
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business software 
directory 

• Radio Shack's Model I, 2, 3 
& 16 

• CPMi Xerox, Alto. . . 

• IBM PC & compatibles 
Data base manager, integrated 
accounting package, inventory, 
word processing, and advanced 
mailing list. 

#38 

Micro Architect Inc. 

6 Great Pine Ave. 

Burlington, MA 01803 

671-273-5658 




$$ MONEY TRAK$$ 



MODEL I/III MULTIDOS 
USERS - ONLY! 

Now! A practical program, at a 
sensible price. This easy to use 
program keeps track of all your 
expenses on any number of files, 
including tax deductible items. 
Sorts by date and saves auto- 
matically. Add, delete, correct &. 
print-out functions. Self-prompt- 
ing. Only $15.00 includes S & H. 
EXTRA! Free surprise gambling 
program with every disk. 
Send check or money order to: 
VICTORIA PRODUCTIONS 
4344 LAUREL CANYON BLVD. 
STUDIO CITY, CA 91604 

#39 



SUPER -P/R PAYROLL 

Power and flexibility for all your payroll needs from 5 
employees to an accounting firm with 40 payrolls 

SAMPLING OF FEATURES 

• Machine language sorts 

• Multiple state tax withholding 

• Departmental payroll journals 

• Report generator for W-2's. 941 as and 
non-standard reports 

• 14 User Defined Earnings/Deduction 
Categories With Employee Base Rates 

• Pay deducted from check option for tips 
and meals 

• Works with all DOSES 

Complete System $225 

Manual With Demo System $45* 

Manual Only $25" 

Add S2 50 lor S & H 

CHECKS VISA UPS COD 

'Full credit allowed when purchase complete system 

Users say SUPER-P/R is simply the best 

If you don't agree after trying SUPER-P R for 60 days, 

return the complete system for a full refund 

MICROCOMPUTER APPLICATIONS 

3485 Mock Orange Court South 

Salem, Oregon 97302 

#40 C503) 364-1 090 

Write or call for free brochure or additional details 

Specify Model I, Model III, or Model 4 



FOR TRS-80 MODEL l/lll COMPUTERS 

Complete Checking II 

A complete CHECK WRITING and accounting system for business 
and personal use 

You can input your check info Manually or Automatically and 
deposits can be inputted semi-automatically, giving you a very easy 
job of maintaining your account 
■ The Automatic mode allows you to enter a 1 or 2 digit code to 
generate re-occurring checks such as: monthly utilities, rent, 
mortgage, etc. 
' Specify where you want the appropriate info on each check only 
the first time you use It and it will print out and/or display the 
correct tormat automatically every time 
» No more checkbook balancing worries This program has a 
handy reconciliation feature that does it for you The computet 
keeps all records and will print or display on request, reports such 
as: complete acct listing listing by dates, amts, desc , tax deduct 
plus balance unreconciled cks 
& deps and more 

Has powerful editing 
features 

Disk version (48K) 

$39.95 

Cass version (32K) 

$34.95 

plus St 00 shipping 

Sample 

Printouts 

available 

upon request 

#41 212-454-9833 Als0 Free 

catalog 

Coleman Computer Services 

P.O. Box 588 St. Albans, N.Y. 11412 




TRS-80 III/ IV 

• BOOKKEEPER • 

Perfect For Small Business 
TIME DOME Has Preloaded File 

• SCRIPSIT-MAILER • 

LETTERS - ENVELOPES - LABELS 
made by Scripsit 

• SERVIGE-BILLER • 

Bill By Rate Chart 
From-To Date 

• BOOKKEEPING • 

MACHINE 

Printed LEDGERS - STATEMENTS 
1400 Accounts Receivable 

$34.50 EACH PROGRAM 

(714) 774-9383 
#42 H. A. K. WORKSHOP 
9791 ORANGE AVE. 
ANAHEIM, CA 92804 



Stop Gambling- 2 " c 

Use your personal computer for expert 
handicapping like the experts do - - - 

R • Predicts game scores 
SEND ' ^ " Situation analysis program 

nATA 9 Trend analysis program 
pREf ^ • Unique handicapping guides 

m HSFL • Simple operating manual 
ON u • Use with Radio Shack, Apple 

cySTEM Commodore 64 and others 
• Order today-Win tomorrow 

StartW inning with 

Send $225. for USFL System includes free 
money mgt. program (worth $50.) Enclose 
check, money order or Visa/MC card No. 

Computer 

Handicapping 

Systems 

P.O. Box 33034 
Cleveland Ohio 

441 33-0034 USFL Winners Ntm-t 

#43 
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MICRO PRINTER BASKET 




■ Use with any table 

Quiets printer 

Special power cord and signal cable retainer to 

keep paper path clear 

Sturdy steel construction 

Durable epoxy finish 

Beige color blends with equipment 

12" for 80 column printers $22.50 

■18" for 132 column printers $24.50 

(this size can also be used with 80 column 

printers) 

Add $3.00 shipping and handling 

SEE, INC. 

P.O. Box 40215 # 44 

Indianapolis, IN 46240 m &siBm 

317-844-8817 j M§r | 

Dealer Inquiries Welcome . i ' I 



5 LARGE CAPACITY > 

t AC COUNTING PROGRAMS > 
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Model 1, 3/4, LNW, LOBO 



5000+ ACCOUNTS 

30-60-90 DAYS AGED STATEMENTS SHOW 
DATE/INV#/DESCRIP/AMT(WITH AGEING). 
SELECTIVE FINANCE CHARGES & RATES, 
FAST ENTRY, POSTING W/AUDIT REPORT, 
SUB-ACCTS, % OF CREDIT LIMIT. DATE OF 
LAST PAYMENT. SALES ANALYSIS. 



GENERAL LI 

400+ ACCOUNTS 

+ REPORT FLEXIBILITY/CAPACITY/DETAIL 
-(-DEPARTMENT P & L (UP TO 9) 
+UP TO 100+ SUB-TOTALS 
+STATEMENTOF CHANGES (ASSETSONLY) 
+ PERCENT P & L -r- MONTH vs YEAR 



1 49.95 Each • Both for 1 99.9 5 w 

w 
-t 
nt 



add $50.00 ea. for HARD DISK 
Super P/R payroll $225.00 
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H.D. P. 

2059 West Lincoln 
Oroville, CA 95965 
916-533-5992 



• Manual& Demo j~ 



Disk- $20D0 »a. 



VISA- MC n» 
or COD O 

AJUOVdVO 30UV1 M3J.SAS AJ.IOVU 



3 00 
S&H 
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SELECTION OF: 

Arcade games 

adventure games 

strategy games 

war games 

Below are just three of many games available for 
the TRS-80 Model 1,3 and 4. Some games also 
available for the TRS-80 Color and TI 99/ 4A. 

• CENTURION 

As commander and gunner of an Israeli Centurion tank you must seek 
out and destroy PLO terrorists hiding in Lebanon. The enemy is 
displayed with an excellent use of graphics, and combat sound effects 
Move, aim, and fire to destToy PLO troops, tanks, houses, buildings, 
and aircraft. You must act fast because the enemy's accuracy becomes 
better with time, 

• F-15 DEATH PILOT 

Turn yoiir computer' into the cockpit of the World's most advanced 
fighter aircraft. Prowl the skies on a search and destroy mission of 
Societ MIG's.. This arcade game will allow you to enjoy tactical fighter 
combat in graphics and sound The computer pilots the enemy MIG-25 
fighters. No matter how good you think you are, you will eventually be 
killed. 

• B-52 STRATEGIC BOMBER 

Pilot your huge B-52 Bomber over enemy territory bombing and de- 
stroying bridges, buildings, factories, tanks, houses, bunkers, refineries 
and more. You must constantly maneuver around enemy Surface-to- 
Air missiles- Then return to base and refuel and rearm for the next 
mission, 



We have generous quantity discounts, up to 209S off when you buy five or 
more games. 

Add 85C shipping or $2.85 CO. D. # 46 

COMTRONIC SYSTEMS 

31620 121st Ave. SE. Auburn, WA 98002 



The House-Ware Genies 

• The Mail Genie 

• The Pantry Genie 

• The Recipe Genie 

• The Calendar Genie 
<<£/ * The Insurance Genie 

At last, the Turn-Key Programs that 
allow Dad to influence Mom, that a 
TRS ™-80 Model III and Color Com- 
puter is a modern day necessity. 

Introductory tf 

Price 9>29.95 each 

#47 Developed By 

SOUTHERN CENTER 
FOR RESEARCH & INNOVATION 
P.O. Box 1713 
Halliesburf., MS 39403 
TELEPHONE 601-545-1680 
TELEX 585400 SCR1 US HAT] 
CABLE SCRI US 

Dealer Inquiries Invited 
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From Basic 

Announcing — 

Assembly Language Business 

Programs For IViodel Hi 

If you bought your computer with the anticipation 
of doing your business quickly, why wait for the 
Basic programs to do your work? All you need to 
wait is 1 or 2 seconds for your data, when the 
programs are written in Assembly Language 

We have: 

General Ledger $99.95 

Accounts Payable S74.9S 

Accounts Receivable $74.95 

Check Writer $39.95 

Church Giving $49.95 

Church Directory $39.95 

Mailing List/Labels $39.95 

Inventory Control $74.95 

For more information contact: 



5 Sussex Ave. 
Cherry Hill, N.J. 
08003 




#48 For More 

Info. Call 



// FlashSpeTl fi 

Spelling word flashes on 
screen j flash time doubles 
until spelled correctly. 
NN Disk storage, 

Your child's lists stored 
for nightly, cuwj 1 a t i ve 
review. No retyping. 
//// Printed scoresheet. 
Cram sheet for test dzu 
school bus review, shows 
which words are hard, 

#49 

Mod 3,4 data disk $14.9? + 
.85 post, inch free "Insult*. 
Chilly Disk Software, Code 
BC, 20S N. Cushman, Suite 
201, Fairbanks, AK. 99701 



Best Prices On 
TRS-80 Computers 

Our 6th year of discounts 

Ed or Joe McManus 

Fgt. Prepaid. Save Tax. 

Toll Free 800-231-3680 

Marymac industries, Inc. 

22511 Katy Fwy., Katy 

(Houston) Tx 77450 

1-713-392-0747 

Telex 774132 

See us in the Wall Street 
Journal every Tues., Wed., Thurs. 

#50 
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NODVILL ^M 

DIET * 

PROGRAM 

$69.95 



"TAKEAB\TE" -" j$ 

MAINTAIN, LOSE OR GAIN WEIGHT (°i 

With your TRS-80 Double Density Disk Model l/IH/4 
and 
The NODVILL DIET PROGRAM "Take a Byte" 

you can quickly and accurately: 

* Calculate caloric and nutritive food intake 

* Evaluate nutritive value ot your diet 

* Compare daily die! to individual RDA Chart 

* Create personalized daily meals and menus 

* Plan varied daily menus based on sound nutrition 

* Save records of daily meals and menus for future planning 

* Print nutrition charts, food, meal, menu and grocery lists 

"Take a Byte" is a Modular BASIC Program 
MAIN Program Menu 

(1) Recommended Daily Dietary Allowance (RDA) CHART 

(2) 733 Expandable Random Access POOD LIST Data File 

(3) 28 Nutritional MEAL LIST Data File Examples 

(4) 7 Balanced DAILY MENU LIST Data File Examples 

(5) GROCERY LIST Program Module 

(6)25 Page USERS MANUAL including Charts and Tables 

D systematically and flexibly lo rolled your 




Foi 



Call: 
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(203) 431-64i 
To Order: Mall a check or money order (or S69.95 to 

NODVILL Software — g 

24 Nod Road DsE 

Ridgelield, Conn, 06B77 mam 
; a Trademark ol the Tandy Corporation 
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FOR TRS-80 MODEL l/lll COMPUTERS 

Apartment Building Management System 

FOR UP TO 30 BUILDINGS 
FOR BUILDING OWNERS AND REAL ESTATE MANAGEMENT 

• Takes care of all necessary accounting transactions for owners 
and tenants such as: RENT PAYMENTS • LATE CHRGS • 
MORTGAGE PMTS • UTILITY PMTS • TAXES • INSURANCE • 
CAPITAL EXPENDITURES • Plus 40 USER DEFINED INCOME 
AND EXPENSE CATEGORIES 

• Features System Maintenance Development and Report Modes 
Some Reports are: AUDIT TRAIL • LATE RENTS • PERCENT OF 
RTN ON INV • G/L PRINTOUTS • INCOMES • EXPENSES • 
INVESTMENTS • RCVD RENTS • LATE CHRGS • DEDUC- 
TIBLES • UTILITIES • TAXES • INSUR • USER EXPENSE & 
INCOME CATS • VACANT UNITS • PERCENT OCCUPANCY • 
PROFIT/LOSS STMT and more! 

• Minimum System: 32K 1 DISK. Also supports Hard Disk Drive Can 
accommodate up to 30 buildings with up to 1000 units each with 
4BK memory 

Sample Printouts are ;£-- " —f- ,-*" *-— " 

available upon request 

Free catalog too 




COST ONLY 

$79.95 

PLUS $1 00 SHIPPING 

212-454-9833 

Goleman Computer Services 

P.O. Box 588 St. Albahs N.Y. 11412 
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Guardian 

32K Color Computer 

Quasar Animations 

1520 Pacific Beach Drive 

San Diego, CA 92109 

(619) 274-2202 

$27.95 tape, $29.95 disk 

Although the market is swamped with 
"Defender" clones, Color Computer 
gamers have been in desperate need for a 
really good version of it for some time. In 
comes "Guardian," by Quasar 
Animations, and takes many by 
surprise. With its unique graphic 
explosions and implosions, along with 
very well done sound effects and an 
attractive title page, Guardian lures 
people to play it. The pace is fast and 
wild, and gets much faster as it goes 
along. 

Your planet has been invaded by 
Landers who aim to make off with your 
energy pods. If successful, they 
transform themselves into all-powerful 
Mutants, which can, and will, fire upon 



you. To aid them in their assault, there 
are the Pods who, if hit, release four 
deadly Swarmers. Swarmers move 
diagonally and are extremely hard to hit. 
There are also the Munchies, which fly 
around randomly and are a general 
nuisance. There are the Pulsers, who 
blink on and off, and can only be 
destroyed if hit when on. Finally, there 
are the killer Baiters. If you get a few of 
these on the screen, a smart bomb is your 
only safe way out. 

Guardian utilizes the right joystick 
controller's up/down axis for the up and 
down movements of the ship. It also uses 
the left/ right control of the joystick for 
left/right thrusting, and serves as a 
reverser. The spacebar will release a 
deadly Smart-Bomb, capable of 
destroying any alien life on the screen. 
The game also contains a useful long- 
range scanner, which comes in handy 
when fighting Swarmers, Mutants and 
Baiters. 

This game also has some drawbacks. 
Even though you may have up to five 



laser shots on the screen at any given 
time, only the one which was fired last 
can kill. Though it is not obvious, the 
game is not written using true high-res 
graphics, but utilizes one of the semi- 
graphic modes, similar to low-res 
graphics. This makes the Landers over- 
sized, but accounts for the ease of 
handling the brilliant, multi-colored 
explosions. The instructions do not 
provide loading instructions for the 
novice programmer. 

Guardian is addictive. I can't stop 
playing it. It contains nice sound effects 
and explosions. The plusses outweigh 
the minuses by a large margin. 

Steve Skryniarz 



TRS-80 for Kids from 8 to 80 
By Dr. Michael Zabinski 
For all models 
Howard W. Sams & Co. 
4300 North 62nd 
Indianapolis, IN 46268 



Df QUJ Nouu for Mod III ond 4 

The GrQftyx Solution® for your Creativity 
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Improved GrafyH. DRRUJ is a powerful 
graphics and text editing package which 
allows your imagination to create a 
picture or design a graphics screen with 
Grafyx Solution. Micro-Labs' Grafyx 
Solution is a plug-in, clip on board which 
gives you 98,304 points in a 512 x 192 
matrix. That's sixteen times as many 
points as a standard Model III! 

Ultimate GrafyH. The DRAW program 
contains almost 10,000 instructions and 
is written in machine language for 
ultimate speed and flexibility. By moving 



the cursor with the arrow keys and 
entering one letter commands, you can 
set, clear or complement points, lines, 
circles, or boxes. The size of the points 
that you are setting can be changed at 
any time. Vou can even reverse or shift 
the entire screen in any direction. Any 
section of the screen may be saved so 
it can be moved or copied elsewhere. 
Sections of the screen can also be filled 
in with patterns. 

Practical GrafyH. DRRUJ is obviously a 
must for generating computer art or 
graphic designs, but is also a necessity 
for anyone, no matter what his 





application. Businessmen and scientist 
can use DRflU to add text labels or other 
refinements to previously generated 
graphs. Once the picture is centered, 
labeled and refined, it can be saved on 
disk/tape or printed on any of 20 
popular printers, nil of this is done with 
single letter commands without ever 
leaving the DRfiUU program. 

The Grafyx Solution package is shipped 
from stock and includes the board, 44 
programs, and a 54 page manual all for 
$299.95. The DRAW program, twelve 
hi-res pictures, and manual is $39.95. 
Shipping is free on pre-paid or COO 
orders. (Tx. res. add 5% sales tax.) 

Micro-Labs, Inc. 214-235-0915 ^^ 

902 Pinecrest, Richardson, Texas 75080 figO 
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(800) 428-3696 
$9.95 

If you have a child who has just been 
dying to learn BASIC, then TRS-80 for 
Kids from 8 to 80 is the book for you. It is 
written by Dr. Michael Zabinski, the 
founder and director of the National 
Computer Camps. 

Each chapter is embossed with 
cartoons of smiling computers, kids and 
happy puppies. The book assumes that 
the user has had no prior experience with 
computers. It explains the most 
fundamental things, such as the video 
monitor, keyboard, and cassette 
recorder. The chapters are kept 
interesting by the use of checkpoints, 
experiments and reviews. Each chapter 
ends with a set of exercises that cover all 
the aspects of BASIC learned in that 
chapter. The answers to these exercises 
are in the back of the book. There are 
even Fun Time activities sprinkled 
throughout, such as word searches and 
crossword puzzles, that make use of the 
BASIC statements learned in the 
chapter. 

Dr. Zabinski has done an excellent job 
of making learning BASIC fun. My son 
is already three-fourths of the way 
through the book, with no prompting 




As Reviewed in 

80 Micro 12/82 80 US 2/83 
Electronic Learning 6/83 

Standard Pascal with many 
special features including 
random files up to 16 mega- 
bytes, peek, poke, and call, 
accessable pointer variables 
(like C), include, chain, and 
rename, graphics. Call or write 
for FREE descriptive brochure. 
NEW! High Resolution Graphics 
package (requires Radio Shack 
board) including character 
generator and turtle graphics. 

Pascal 80 $99 + $2 shipping 

Pascal 80 School Package $295 
Pascal 80 Trial Version $14.77 
Graphics Package $39.95 
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SOFTWARE 



239 Fox Hill Road 

Denville, NJ 07834 

201-625-8838 
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from me. Those of you with children will 
realize what a miracle this is. Children 
hate to read books, especially in the 
summer. This book would make an 
excellent text for teachers considering 
the challenge of teaching BASIC to 
children. 

One warning before you go out and buy 
this book. If you think you can lock your 
child and this book in the closet for a 
week and have an instant programmer, 
you will be sadly disappointed. Although 
the book is aimed at children, some of the 
examples and exercises may be a little 
tricky to understand without some adult 
interpretation. If you're willing to spend 
a few moments helping your children 
through the rough spots, you may have 
to buy them a computer so that you can 
use yours once in awhile. 

Charles A. Quante 

(Volume II, written by the same 
author, has just been released. —Ed.) 



Grafyx Solution 

Model III 

Micro Labs, Inc. 

902 Pinecrest 

Richardson, TX 75080 

(241) 235-0915 

$299.95 

Bizgraph Program $98 

Draw Program $39.95 

Surface Plot Program $39.95 

Mouse Interface $99.95 

The Grafyx Solution, a high-resolution 
graphics board for the Model III, from 
Micro-Labs, Inc., includes the add-on 
module, two manuals, two disks of 
software, and it sells for $299.95. Also 
available are the Joy-mouse Interface for 
$99.95 and, from any Radio Shack 
dealer, the Color Computer Mouse for 
$49.95. 

Since I've never looked inside a 
computer before, or tinkered with one, I 
was the perfect guinea pig for the 
installation phase. 

The module arrived in plastic and 
attached to a foil-covered styrofoam 
bottom support. First lesson: be very 
careful when you lift the module from its 
packing. The stuff clings for dear life. If 
you're not careful, you'll wind up picking 
little pieces out from between the 
tracings and wire ends, like I did. This 
delay isn't fun while anxiously looking 
forward to 512 x 192 dots worth of 
resolution. 

Next, I tackled the "integrated 
circuits," each with fourteen fragile pins. 
The trick was to get all fourteen plugged 
simultaneously into some very snug 
receptacles. What if the pins bent? What 
if they snapped? Grizzly thought, huh? 
To avoid this, I recommend using an IC 
puller. 



A light would be handy to check that 
all pins on the module are lined up and 
plugged into the corresponding holes on 
the main computer board. You never 
know what might boil if pins get crossed 
or plugged where they shouldn't be 
plugged. The solderless "micro-clips" 
which must be attached at various 
locations to complete installation went 
on with little trouble. 

Dutifully noting Micro-Labs' caution 
about CRT neck implosion, I replaced the 
Model III cover and was ready for the 
moment of truth. I plugged the computer 
in and powered up. Not a puff of smoke. 
No alien sounds. Not even a marching 
band! TRSDOS booted up like I'd never 
tampered with the machine! 

I inserted the "Grafyx Solution 
Software" disk containing BLD files to 
run a modified BASIC, 80-column video 
drivers, and a copious assortment of 
high-resolution data files demonstrating 
the capabilities of the graphics package. 

On a 48K Model III, running TRSDOS 
1.3 the BLD file didn't work. Having 
come so far, I certainly wasn't going to 
quit, so I entered BASIC, setting memory 
size to 60000, and typed from command 
mode: DEFUSRl = &HF4A0: CMD "L", 
"GBASIC48/CMD": A = USR1(0). This 
got the software running in fine style. 

The demonstration pictures were quite 
impressive but, in GBASIC, one three- 
dimensional function took over three 
hours to plot. I wondered if it would take 
as long for my Mouse Interface. 

As with most drawing, one of the major 
issues is control. Two versions of Micro- 
Labs' "Draw" program attempt to 
provide this flexibility and control. One 
is limited to cursor-controlled sketching 
and the other utilizes the mouse 
interface. The mouse interface uses the 
Model III I/O port and allows you to 
attach joysticks or the Color Computer 
mouse. One nice feature with the mouse 
interface is the additional I/O port 
provided so that the user could 
conceivably operate a hard disk and 
mouse simultaneously. 

I found that the mouse was a definite 
improvement over the cursor keys, 
especially when drawing cxirves. Yet, 
even with the mouse, precision control is 
difficult. The next development will 
undoubtedly be a graphics tablet or light 
pen. 

The "Draw" program provides one 
curve function, several line functions, a 
brush command with four-point 
maximum width, screen load and save 
functions, variable velocity cursor, as 
well as erase, skip, or set functions. 
Despite all this, the more I drew, the more 
I felt it needed a graphics tablet. My 
creative endeavors were, in a word, 
tedious. 

Micro-Labs, Inc. provides additional 
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support such as Bizgraph, which 
interfaces the Grafyx Board with 
VisiCalc, the Draw and Surface 
programs, and provides for 80-column 
video display. The Grafyx Solution does 
not interface directly with the Scripsit, 
VisiCalc, or Vidtex programs. The 
package offers everything Micro-Labs 
says it does, and at quite a bargain. 

Greg Sheppard 



Ace of Space 

Models I/III/4IH 

Soft Systems and Consulting 

P.O. Box 60031B 

Santa Barbara, CA 93160 

Tape $26.95, Disk $29.95 

Get ready, space game aficionados. 
The Ace of Space is here and it's hot. This 
game is addicting, extremely 
challenging, and just plain fun. Up to 
three players can battle the alien saucers 
or each other (not one at a time, as in 
most games). We're talking about each 
player piloting a separate ship in real 
time — simultaneously. Granted, the 
keyboard gets a little cramped with three 
sets of hands competing for space; but, 
that just makes it more challenging. The 



space ship's graphics are crude, but the 
explosions are very realistic. The debris 
spreads rapidly in all directions and it 
can cause other ships in the vicinity to 
disintegrate. 

What really makes this game great is 
the incredible number of playing options. 
You can control the number of ships, the 
number of alien saucers, the speed of the 
saucers, type of weapons aboard each 
ship (missiles or lasers), number of 
weapons aboard each ship, individual 
fuel supply, the length of your laser 
beams, the speed of the meteors, and the 
force of gravity. You may play with, or 
without, meteors, flying saucers, objects, 
space mines, or black holes. A unique 
option is the way an object is treated 
when it reaches the edge of the screen. It 
can be made to bounce off the edge, or to 
wrap-around, like a word processor does. 
A ship that traveled to the very top of the 
screen will then appear at the bottom of 
the screen in the "wrap" mode. 

There are two scoring goals: 
cooperative or competitive. In the 
cooperative mode, one, two or three 
players attempt to destroy all of the 
enemy saucers before any one of the 
players gets eliminated. If you choose the 
competitive goal, you are pitted against 



other players, and the object is to kill or 
be killed. Numerous combinations of 
scoring options are allowed. Each player 
controls his ship with five keys on the 
keyboard. You have a variable thrust 
control (10 speeds), a hyperspace control 
for quick exits, right and left rotation, a 
180-degree flip control, a right or left 
barrel toggle and, of course, a weapon- 
firing button. The control arrangement 
takes some getting used to; but, once 
learned, it is very fast, efficient, and 
seems quite natural. 

The black hole is optional and its 
gravity can be varied. It acts very 
realistically to pull in all unsuspecting 
ships (not the enemy ones, though). If 
you are unfortunate enough to be pulled 
into the black hole, you are instantly 
scored as dead and the game ends. The 
high score for the session is saved, and a 
new game can be resumed by simply 
pressing one key if no option changes are 
wanted. Actually, the options are very 
easy to alter. The author is obviously 
quite a game player, as he has eliminated 
all of the annoying features of the past 
ones. All in all, a fantastic game. The 
disk is well protected, so don't expect to 
see this one passed around. Buy it! 

Jim Klaproth 
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EPSON FX-80 Printer- 

All new model; fastest dot 
printer; 160 characters per 
second. Prints user-de- 
fined characters. Features 
elite pitch, proportional 
spacing hex diagnostic 
I and new bit image 
' modes, reverse paper 
feed. Compatible with 
Epson QX-10, HX-20, and 
most personal and desk- 
top computers Call 



Madnker — Automatic ribbon re-inker for any printer. Re- 
inks any type of ribbon except carbon for less than 5 cents; 
lubricant for safe dot matrix printhead operation . . $54.95 
HAYSTACK MODEM— Modems for telecomputing; pro- 
tects sensitive information sent over telephone lines; transfers 
files between various micros, minis or mainframes; 
automatically logs-on to networks, answers phone, saves 

data $239.00 

MICROTERM — Smart terminal software; enables you to do 
more in less time, in both ASCII and the new "error free" direct 

file mode; unique Macro-Key function $79.95 

AVERY LABELS— Address roll labels mini-fold; one up; 
15/16" x 3-1/2", 1000 per box $6.95 

All orders must be cash, UPS, CO D„ Visa, MasterCh arge, or American 
Express. Personal checks take 3 weeks to clear 



Mini-Line " is a trademark 
of Avery International 



MIDWEST 



CQMP-J'TRQN 

INCORPORATED 

451 Sagamore Pky. »W, Lafayette, IN 479C6»(317) 463-3433 



INDUCTS 



PRICES 

AND SERVICE 

Tnn nnnn td parci i ipi 



PASSWORD 

Password puts any micro-computer into 
a telecomputing network with 300/1200 
baud speed, programmable auto dial and 
auto answer capability, auto mode and auto 
speed select, audio phone line monitor, and 
other advanced features. Simple one button 
operation, compact, and dependable because 
its designed with just 12 IC's. 

$395.95 
AUTO DIAL 212A 

Auto Dial 212A has every feature needed 
for professional data communications — and 
nothing that isn't. Operates unattended at 
300/1200 baud, with programmable auto- 
matic dialing and answering, full/half duplex, 
diagnostics and switches for quick setup and 
compatibility adjustment, audio phone line 
monitor. Mounted in compact brushed ano- 
dized aluminum case that fits under standard 
desk top phone. $K()Q QK 

PHONE LINK 

Phone link is an acoustic modem that 
transmits at up to 300 baud, full/half duplex. 
Talks to any other Bell 103/113 through stan- 
dard headsets, with remarkable fidelity even 
at great distances. Self-test features check 
performance and hardware compatibility 
quickly and easily. Compact enough to slip 
into a briefcase cmae: Q£ 



MODEMS 




COURIER 
MICRO LINK 300 
AUTO LINK 
MICRO LINK 1200 
AUTO LINK 1200 
AUTO LINK 212A 



Free Shipping on Orders over SI 00 • Toll Free Order Line 
Friendly, Honor.!. Reliable Service • Free Use ol Credil Cards 



24-Hotir Shipping Sor Hems in Slock 
Large Selection-Call lor Items Not Listed 



ORDER NOW 
TOLL FREE 



IN COLO CALL 861-9250 



1-800-468-4474 

Alwg H systems, 

A w mm inc. #55 

612 Washington, Denver, CO 80203 



WRITE FOR OUR FREE CATALOG 
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LSI Help System 
Model 4 

Logical Systems, Inc. 
8970 N. 55th Street 
Milwaukee, WI 53223 
(414) 355-5454 
LS-LDOS Help $29 
LS-Technical Help $39 
LS-Help Generator $59 
plus $3 shipping/handling 

The LSI Help System is a series of 
stand-alone programs for the Model 4 
that provide on-line help for 
programmers and users of TRSDOS 6.x 
and BASIC. The system works in two 
modes. First you can call a help file from 
DOS by typing "HELP." You will be 
prompted for what sort of help you want 
(each type of help has its own filename). 



'TR-S-80 MODEL I/III 

Discount Programs 
Cassette and Disc 

BUSINESS 
UTILITIES 
EDUCATIONAL 
HOME MANAGER 

Free Catalog Available 

J / C ENTERPRISES 

#56 

4920 Mayflower St. 
Cocoa FL. 32927 

'trademark Tandy Corp. 



NEW! 
DISK- 
FILE 

System 

ONLY 

§9*95 

plus 3.00 pstg. 




4 EASY TO STACK! 



HOLDS 150-5 'A " DISKS 

Weber's Disk-File System Includes: 
I Disk-File of your choke. 150 ID labels for disks .3 back 
stops (to hold disks up right in the file) 40-dividers a Cross- 
reference and a Table of Contents card plus your choice o 
either a removable Jjd or pulldrdwer jl££y£. 



WK \ 5.25-DS 75 
M-SO J 8 . D , 50 

ftt.R OPTIONAL l-.XTKA'V 



$5.95 »2.00 
$15.95 $3.00 

■mi A .1.1 s;i on/ 



OKDIK IOK TRIAL - SATISfACTIOrl GUARANTEED 



#57 CALL TOLL-FREE 800-225-0044 

as, weber & sons, inc. 

*s/wl 3468 B Highway 9, KD #4 
FREEHOLD, HEW JERSEY 07728 



A list of key words for that help file will be 
listed on one or more screens with a 
prompt at the bottom to enter the 
keyword. Let's say you need help with 
the BASIC keyword "LSET." You would 
enter HELP BASIC. A screen of 
keywords from BASIC would appear on 
the screen. If the word you want isn't 
there, hit enter and another screen of 
keywords appears. Type the word you 
want to know about and hit enter. A text 
file full of information will appear on the 
screen, or can also be sent to the printer. 

I hear a voice in the background 
saying, "Hey, that's all pretty neat, but 
by the time I exit BASIC, load this 
program, look at the help file, exit the 
program and enter BASIC again, I'm 
going to forget what I was doing in the 
first place!" Wrong. This is where HELP 
gets good. There is another part of the 
program that's called HELPRES. This 
allows you to load the HELP drive into 
high memory where it waits to be called 
when needed. If you still need help with 
"LSET," and you are in BASIC, just hit 
clear shift H. You will be prompted for 
the keyword as before and the 
information will be shown as before. But 
when you are done reading about 
"LSET" and his break, you will be put 
right back where you were, in BASIC, 
with the screen just as it was when you 
left. 

HELPRES also works at DOS level 
and with some assembly language 
programs, although LSI will not 
guarantee compatibility because of the 
thousands of programs out there and the 
programming practices of some authors. 
I did, however, enable HELPRES while 
using LSFEDII, the LSI disk-zapping 
utility, and it worked without problem. 

LS-LDOS HELP contains two help 
files. The first gives information about 
LDOS (TRSDOS 6.0) disk commands. It 
explains how to use each command and 
how to use some of the special features 
such as the key-click filter and COMM, 
the communications program. The other 
help file covers all the BASIC keywords 
and gives brief examples of their use. 

LS-Technical HELP works in much 
the same way, but the information 
contained is for the advanced 
programmer. There are four HELP files 
on the Technical HELP disk. Techl 
covers device control blocks, file control 
blocks, granule allocation tables, hash 
index tables, or (to put it another way) 
the housekeeping chores of the operating 
system. 

Tech2 gives all the SVC calls and how 
the registers must be loaded when calling 
each SVC. The use ofSVC's and this help 
file will save hours of time for the 
assembly language programmer. Also, 
for the assembly language programmer, 
the other two HELP files contain Z-80 



mnemonics, their descriptions, flag 
information and the op-code generated 
by each. 

The LSI Help System really covers the 
bases. LS-LDOS HELP is for the person 
just getting started with LDOS or 
TRSDOS 6.0. LS-Technical HELP is for 
the person ready to write applications 
programs that use the operating system 
to its fullest potential. 

Wouldn't it be nice to have such help 
files for Scripsit, or maybe a BASIC 
program that may really need such on- 
line help, but you just can't spare the 
room? Well, I wouldn't ask the question if 
I didn't have an answer. LS-HELP 
Generator is a sort-of compiler that takes 
text prepared on a word processor and 
makes it readable by HELP/CMD. You 
can imagine how good your program 
would look if clear shift H brought a 
screen full of explanations to a person 
trying to learn to use it for the first time. 

These three programs prove to me that 
the decision by Radio Shack to do what 
they do best, build and sell computers, 
and let Logical Systems, Inc. do what 
they do best, design and support 
operating systems, means that the end 
user is going to get a better product in the 
long run. The HELP programs are 
available for LDOS 6.0 (TRSDOS 6.0) 
and LDOS 5.1. They work as advertised 
and are sold at a fair price. I recommend 
them for anyone who needs information 
quickly and doesn't want to scan 
through page after page of a user's 
manual to find it. 

Al Mashburn 



Bytewriter Praxis 40 retails for $645. 




Bytewriter Praxis 30 

Bytewriter 

125 Northview Road 

Ithaca, NY 14850 

(607) 272-1132 

$495 

The Bytewriter daisy-wheel printer, an 
Olivetti Praxis 30 electric typewriter 
with parallel interface, sells for $495, not 
including cables which sell for $39 
apiece. Replacement ribbons and various 
print-wheels (about twenty fonts are 
available) can be purchased directly 
from Olivetti, or indirectly through 
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Figure 1 
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Figure 2 
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Figure 3 

This dual purpose daisy wheel printer/typewriter can 

underline, tab and print in three pitches. 

Program and circuit board design copyright (c) 1982 
by Williams Laboratories. 

BYTEWRITER 

125 Northview Rd. 

Ithaca, N.Y. 14850 



Montgomery Ward. The Bytewriter we 
received arrived with cables for the 
Models I, II, III and Model 100 Radio 
Shack computers, as well as one Esteem 
Pica printwheel. 

Installation was a simple matter of 
plugging the proper cable to the 
computer and printer and running paper 
through the roll-type 8-inch carriage. We 
had the machine printing in a few 
minutes. 

The first thing we noticed was, though 
moderately slow (8 to 12 characters per 
second) and definitely noisy, the 
Bytewriter's print quality was excellent. 
We assumed, as with most other parallel 
printers, character selection would be 
ASCII-based. At this point, we looked 
through the manuals and discovered the 
ASCII codes weren't listed. With the 
keyboard manually selected to normal, 
LPRINTing CHR$(161) to CHR$(253) 
produced what is shown in Figure 1. With 
the keyboard switched to the alternate 
character set, we obtained Figure 2. 
Using CHR$(148) generated the message 
in Figure 3. 

It's possible, though it isn't explained 
in the documentation, to do carriage 
returns, linefeeds, tabs and underlining 
using ASCII codes. Keyboard, margin 
and pitch selection must be done 
manually. If you try to print past the 
margin, which is automatically set to 30 
on the left and 90 on the right at power- 
up, the printer pleasantly beeps, stops 
and waits. 

Bytewriter does make available their 
interface kits for those who have 
purchased the Praxis 30, 35 or 40 
typewriters elsewhere. The kit retails for 
$165. 

Overall, the Bytewriter is simple to use 
and to move around. For those who tend 
to forget, Olivetti thoughtfully provided 
a red indicator light which glows when 
the machine is on. If you want, or need, 
quality type but aren't ready to spend 
your life savings, the Bytewriter is a low- 
cost, but productive, solution. 

Greg Sheppard 



Hexman Disk Management System 

Models I/III/4IH 

Hexagon Systems 

P.O. Box 397, Station A 

Vancouver, BC, Canada V6C 2N2 

(604) 682-7646 

$49.95 

The first thing one notices when he 
examines the Hexman disk management 
system is four sheets of 33 labels each. It 
is obvious at once that this is intended to 
be a very comprehensive directory 
management system. Put simply, it is a 
collection of compiled BASIC programs 
which is designed to take over the 
responsibilities of locating, placing and 
backing up all the files in your disk 
library. 

I tried for several hours to initialize a 
set of disks according to the Hexman 
instructions. During this process, two 
/JCL files are executed. After following 
the instructions, the Hexman system 
should be ready to use. I found this not to 
be so. 

According to the documentation, the 
system is supposed to catalog the 
Hexman files as its first task. In my case, 
after three tries, all I could get was 
"Error: too many files. DIR/SYS:7." This 
I received despite the fact that I don't 
have a drive 7! On the fourth attempt, the 
cataloging of Hexman's own files was 
skipped and a menu presented. After 
adding some disks to the library, 
Hexman told me to reinsert my system 
disk and immediately gave me an 
"illegal function call error at address 
9D38." No additional indication as to 
what caused this error was given. 

The documentation is sometimes 
inaccurate. I was not able to get past the 
above-mentioned errors to a satisfactory 
system. One gets the impression that it 
would be faster to catalog files manually 
rather than fuss with Hexman. Perhaps 
this is so, but the program wouldn't work 
properly on either a Model III or a MAX- 
80 computer. 

After receiving a new pair of disks 



from Hexagon systems, I tried again. 
After all, it would only be fair to verify 
that the problem wasn't a defective 
diskette. It seemed to go better this time. I 
actually got some files into the filestore! 
Unfortunately, I had to do some things 
that were not outlined in the 
documentation. After following the 
initialization procedure exactly, which 
involves little more than executing a 
couple of /JCL files and typing 
SYSTEM(SYSGEN) when told to, I 
found that Hexman expected four of its 
overlay files to be on the system, but they 
were not. I had to copy them over 
manually in order to avoid "Program not 
found" errors. The documentation shows 
this error message in the back, but says 




ORDER ENTRY SYSTEM 
A sophisticated invoi 
for the small busines: 
clients 



( handling system 
Keeps track of 



MAIL LIST SYSTEM 

A medium capacity mail list system designed 
for business use, but inexpensive enough for 
personal use. Sort by name or zip 36.95 

CLIENT FILE SYSTEM 

Keeps data on your clients, with instant recall. 
Prints out Rolodex"and continuous type cards. 
Compatible with Order Entry System . 18.95 

SMART CALENDAR/ORGANIZER 

Keep track of day to day business on the 

computer. Instant recall of a date. 

Automatically alerts you to pending business... 24.95 

ELECTRONIC MAIL SYSTEM 

Turns your Model IV into a iiost computer 

with an electronic mail program. For private 

or public use 49. 95 

All programs were designed on a Model IV and take full advantage 
of its features. Built-in help facilities make them easy to use. 

All programs require 64K and 2 disk drives. 
VISA, Mastercard, Check, Money Order. COD is S2.00 extra. 



FREE SHIPPING 
;idents add 47. tax 



Orders (313) 882-3586 



#58 



FlexiSoftlnc. 
1117 Grayton Road 
)sse Pointe, Mi. 48230 



PLEASE USE READER SERVICE CARD FOR MORE INFORMATION 




eplacemenl 

bbon 



Manufactured by Aspen Ribbons, Inc. 
Buy direct from manufacturer & save 

Standard ink color is black. Red, green, 
blue, brown, & purple colors are 
available for $2.00 extra per ribbon. 

PRICES 



Radio Shack® $4.00 to $1 2.00 ea 
TRS-80 DMP-2100 

Price depends on quantity ordered. 



CALL FOR FREE CATALOGUE 

'Aspen Ribbons, Inc is not affiliated with any 
company mentioned in this ad 

#59 

Aspen Ribbons, Inc. moo n. 55th st 

Boulder, CO 80301-2796 (303)444-4054 

Telex: 45-0055 End User: 800-525-0646 

Wholesale: 800-525-9966 
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that it will place all its needed files on the 
disk in the front. 

After getting the system going, I tried 
several of the options on the menu. Most 
performed as the documentation stated, 
and I could see that Hexman was 
intended to be a very comprehensive file 
manager with some very good screen 
displays and a number of good ideas. 
Unfortunately, the program aborted to 
LDOS Ready when I asked for a search of 
the filename "PASCAL" from option 1 of 
the review menu. The error given was a 
message from the compiler runtime 
package: "Illegal Function Call at 
address 95C8." I tried again, asking for 
the file "PASCAL/CMD." This time, 
there was nothing but the same four 
choices printed again on the screen. This 
happened very fast, without any disk 
access. 

Perhaps I did something wrong, but 
there was no hint as to what it was from 
the error message. The filenames 
"PASCAL/CMD" and "PASCALB/ 
CMD" did exist, both in the filestore and 
on the system, at the time. Whatever was 
wrong, it caused differing results 
because of the different spellings of these 
filespecs. 

The documentation appears to be a 
real culprit in these problems. It is poorly 
prepared. On page 2.1 1, there is part of a 
line that was printed, but manually 
crossed out. There are numerous spelling 
errors throughout the manual. I think 
this is peculiar since Hexagon Systems 
sells an excellent spelling checker 
program called HEXSPELL. They 
should have taken the time to use it. 
There were also a few sentence 
fragments as well as poor grammar, but 
these were not glaring; they were just 
indications that the documentation was 
poorly prepared. I think that Hexman 
has great potential as a complete file 
management system, but the authors 
should spend more time leading the 
purchaser through the first few 
operations of the program. There really 
is no excuse in a commercial software 
package for the instructions to be either 
inaccurate or incomplete. It's a shame, 
because this type of file manager really 
needs to be written. 

On the positive side, the program has 
some excellent screen displays. The 
menus presented, though not self- 
documenting, are uncluttered and easy 
to read. Efficient use of graphics leads 
you to the selections offered with ease. 
Quite a bit of effort must have been spent 
in designing the screens. The "ADD 
NEW FILES" option allows inclusion of 
user data about each file. The screen 
presents a good deal of useful 
information about a file to the user. The 
activity history of a file is shown for the 
month, together with the date it was 
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added to the filestore, and the average 
number of loads. You are allowed to edit 
the description given to a file whenever 
you wish as well as change its security 
level (the number of backup copies you 
want to maintain). The size of the file and 
the disk number it is on is also shown. 

With the Hexman system comes a 
tutorial disk. This is an excellent tutorial 
and ran perfectly the first time. 
Unfortunately, one cannot interrupt the 
Hexman program to run the tutorial, or it 
might serve to partially replace the poor 
documentation. I must applaud Hexagon 
Systems for this well-implemented idea. 

Repeatedly, the instructions say 
something like, "Load the review 
program." You have to read carefully to 
find out what is meant by "review 
program" and how to load it. Experi- 
enced computer users will be able to do 
this, but newcomers will have trouble. 

On one occasion, I left a drive door 
open. The error message was "Disk Error 
on File: DIR/SYS:2 File No. 9999 Too 
Many Files." Just how you can have too 
many files on an empty drive totally 
eludes me. The problem here may be 
dependent on the error code returned by 
LDOS. If it is possible for an error code to 
have multiple meanings, the error 
message should reflect this. 

The LDOS for the MAX-80 is, as far as 
the Microsoft BASIC Compiler is 
concerned, identical to the Model III 
LDOS. The TRS-80 ROM is duplicated in 
the RAM in the MAX with only some low- 
level changes to keep from copyright 
infringement. All of the documented 
system calls in the back of the LDOS 
manual are identical and work the same 
way. AH programs that I have previously 
compiled with this compiler, even those 
done on a Model I over a year ago, ran 
perfectly and without error. It would 
appear that the author is using undocu- 
mented system memory and disregard- 
ing good programming practice. 
Hexagon Systems, however, when asked 
if this was what they were doing, 
responded with "No" and a statement 
that only BASIC code which would run 
with the interpreter had been used. If this 
is true, it certainly rules out the MAX-80 
as the source of the problem. 

I called Hexagon to see what they 
could do. I was greeted with an 
answering machine at 3:00 in the 
afternoon their time. The message 
appeared oriented toward order taking. 
My call was returned the next day, and I 
was assured that these problems had not 
been reported by other users. I was told 
that one MAX-80 owner had reported a 
different problem some time ago, but he 
had apparently solved it because they 
had not heard from him again. Although 
my problem was not solved, the person 
was kind and sympathetic. He was, I 



found out later, the program's author, 
Bernard Hughes. 

My best advice would be to wait awhile 
before purchasing this program. There 
has been a good deal of effort put into it 
and it has the potential to be fantastic. It 
just looks like it might have been 
released prematurely. Perhaps the folks 
at Hexagon Systems will improve the 
product. If you do decide to buy it, protect 
yourself by negotiating a return 
agreement in case of difficulty. 

Charles P. Knight 

Subterranean Encounter 
Models I/III/4IH 
Toucan Software 
4024 Canonero Court 
Fair Oaks, CA 95626 
$22.95 tape or disk 

There are many computer enthusiasts 
who enjoy challenging adventures as 
well as graphic programs. Now there is a 
new program that has emerged from the 
active minds at Toucan Software: 
Subterranean Encounter! This graphic 
adventure game combines all of the 
elements that encompass both categories 
into a masterful blend of enticing 
programming enjoyment. 

Subterranean Encounter is a 49-room 
graphic adventure that requires 48K of 
memory for the Model I, III or 4m 
computer. It is available on disk as well 
as tape (a nice benefit for those who have 
48K, but no disk). 

The game centers around and mside 
(for those clever enough to enter) an old 
castle full of surprises and deadly traps. 
It takes place during the days of 
medieval combat and intrigue, B.C. 
(before computers). 

To complete this adventure, you must 
conquer many problems inside as well as 
outside of the insidious stone structure. A 
few of the simpler obstacles include an 
angry hermit, a cold and deep moat 
surrounding the castle, sword-carrying 
suits of rusty armor, confusing mazes, 
secret passageways and compartments 
— in other words, Subterranean 
Encounter features all of the elements 
that are found in most classic (or 
destined-to-become classic) adventures. 

The graphics take up most of the 
screen. Commands are shown and given 
at the bottom of the screen. The graphic 
depictions are, indeed, realistic. For 
example, when you are in the forest, it 
honestly looks like a forest. Obviously, 
the authors took great pains to insure the 
accuracy and detail of their graphic 
renditions. 

Subterranean Encounter is the first of 
many new graphic adventures. If all 
future adventures are as fun and as 
challenging as this quality program, the 
gaming community will be overjoyed. 
Bob Krotts 
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Software Directory 

The first volume of the 

Microcomputer Software Directory 
is now available. The directory 
emphasizes the major, original and 
specialized packages, including 
detailed descriptions of over 3,600 
packages and 1,000 suppliers. 
Designed to provide the user with 
enough information on each 
package to make a well-founded 
buying decision, the directory's 
listings include product description, 
the machines it will run on, 
matching operating systems, 
memory and peripherals required, 
number of users and when the 
package was first operational. The 
directory is available at $35 (plus 
shipping and handling) on a 15-day 
money-back trial, and can be 
ordered from Computing Publica- 
tions, Inc., Princeton-Forrestal 
Center, 101 College Road East, 

Princeton, N J 08540, (609) 452-8090. 



Under-$100 Printer 

Alphacom, Inc. announced a price 
cut on its 40-column Alphacom 42 
"universal" printer, lowering its 
suggested retail price to $99.95 
including an interface cable. The 
printer may be linked to popular 
computers by plugging the 
appropriate interface cable into the 
printer's cartridge-like slot. The 
printer may be purchased 
separately at a suggested retail price 
of $79.95. Interface cables are 
available separately at $20 each 
(except the cable for the TI 99 4/A, 
which is $40). 



acorn 42 combines a 
single-chip microprocessor and an 
Olivetti print mechanism using 
thermal technology. The unit 
operates at two lines per second and 
features bit-mapped graphics. Other 
features include upper- and lower- 
case letters, wraparound for lines 
longer than 40 characters, and it 
recognizes standard ASCII control 
or "action" codes for changing the 
printing mode. Codes include 
carriage return, linefeed, right 
justification, form feed, graphics 
control, and multi-line feed. Contact 
the Consumer Sales Department, 



Alphacom, Inc., 2323 South Bascom 
Ave., Campbell, CA 95008, (408) 559- 
8000. 



Portable Computer Case 

The Chip-Tote is a carrying case 
for the TRS-80 Model 100, NEC PC- 
8201 and Epson HX-20 portable 
computers that doubles as a desk. 
The case features a slim, fully foam- 
padded design that opens up into a 
one-piece work station. The 
computer never leaves the bag. The 
stand-up top holds papers and inner 
pockets keep notebooks and 
notepads handy. A zippered pouch 



Under-$100 printer 
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holds an AC adapter, acoustic 
coupler, modem cord or extra 
batteries. The Chip-Tote is made of 
DuPont Cordura nylon in black or 
smoke gray for $59.95. It's available 
from Kangaroo Video Products, 
Inc., 9190 Manor Drive. La Mesa, 
CA 92041, (619) 698-0230. 



Trav-L-Case 

The Computer Case Company has 
introduced a complete line of heavy- 
duty cases for use by the frequent 
long-distance traveler. These cases, 
called Trav-L-Case, are made of 
plywood sides covered with scuff- 
resistant vinyl on the outside, metal 
protection on the edges and corners, 
key draw bolt locks, padded handle 
and a minimum of one-inch foam 
padding on all sides for protection of 
the equipment. The cases have been 
sized to hold the equipment that can 
be handled by one person and will 
easily fit inside the trunks of most 
standard-size cars. The cases can be 
obtained through most computer 
stores or direct from the Computer 
Case Company, 5650 Indian Mound 
Court, Columbus, OH 43213, (614) 
868-9464 or (800) 848-7548. 



Color Computer Interfacing 
Book 

TRS-80 Color Computer Inter- 
facing, With Experiments, a 203- 
page book by Andrew C. Staugaard, 
Jr., provides the reader with a basic 
understanding of the inner structure 
and operation of the TRS-80 Color 

Trav-L-Case 



Computer, its major large-scale 
integrated (LSI) circuit components, 
including its 6809E central 
processing unit and its expansion 
capabilities. The author shows how 
the three fundamental interfacing 
functions (decoding, three-state 
buffering and latching) can be 
performed using digital logic design 
techniques. He describes the use of a 
programmable interface adapter to 
develop a simple parallel input/ 

Portable computer case 



output interface for the expansion 
connector. Digital-to-analog and 
analog-to-digital converters are 
covered and instructions given for 
connecting them to the Color 
Computer to monitor and control 
external events. Six practical 
experiments illustrate the material 
presented. The book is 5y 2 x 8 l / 2 
inches, softbound, book number 
21893, $14.95 plus $1 shipping. 
Contact Group Technology, Ltd., 




Software directory 
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For immediate release 



P.O. Box 87, Check, VA 24072, (703) 



Model 100 Software 

Magnificent 7 is a collection of 
Model 100 programs for entertain- 
ment and serious use. Tape One 
includes programs entitled 
Perpetual Calendar, Bank Finance, 
Bio-Rhythm, Sliding Squares Game, 
Casion Slot Machine, Casino 
Blackjack, and Draw Poker. Tape 
Two contains music, finance, and 
graphics programs. Price per tape is 
$21.95, including shipping. Contact 
Complete Computelr Services, 8188 
Heather Dr., Newburgh, IN 47630, 
(812) 853-5140. 



Order entry system 




Pedestal computer table 




— 



Crayon Deluxe 

Crayon Deluxe is a complete bit- 
image graphic/text word processor 
for the Models I, III, and 4m 
computers. It comes with an 18K 
full-screen editor, a font design 
utility, three "complete character 
fonts, and 130 page manual. Besides 
normal word processing tasks such 
as justification, programmable tab 
lines, user defined keys, it includes 
specialty fonts, sub and super 
scripting, a screen format that is the 
same as the printout, and more. The 
package sells for $150, and supports 
all Epson MX and FX printers, 
Gemini, Prowriter, and NEC 
printers. Print samples and a 
complete brochure are available on 
request. Contact Pioneer Software, 
Inc., 1746 N.W. 55th Ave., #204, 
Lauderhill, FL 33313, (305) 739-2071. 

Order Entry System 

Micro Architect's Order Entry 
System can integrate with their 
Inventory Control System, INV-X, 
and their Accounts Receivable 
System, AR. It can print invoices 
and update inventory information 
automatically. Multiple inventory 
items may be entered. Taxes and 
shipping charges are automatically 
computed. The Order Entry System 
sells for $99 and the complete Order, 
INV-X, and AR package is $479. All 
programs are designed for the TRS- 
80 Models II, 12, and 16n. Contact 
Micro Architect, Inc., 6 Great Plains 
Ave., Burlington, MA 01803, (617) 
273-5658. 

Free CoCo and MC-10 Software 

Commterm is a new communica- 
tions terminal program for the Color 
Computer and MC-10. With the 
correct hardware (RS-232 and a 
modem), the program will allow 
access to bulletin boards, 
timesharing services and remote 
computers. Star-Kits Software 
Systems Corportation will provide 
the program free to anyone who 
sends them a blank cassette and a 
stamped self-addressed envelope. In 
return, they ask for your evaluation 
of the program and a "fair 
contribution" to them to encourage 
further development of inexpensive 
software. Contact Star-Kits 
Software Systems Corporation, P.O. 
Box 209, Mt. Kisco, NY 10549, (914) 



241-0287. 



Color Computer Compiler 

Speed up your BASIC programs 
an average of 40 times faster. The 
Color Computer Compiler from 
Computerware supports 46 
commands; most are a subset of 

Extended Color BASIC. Generated 
code is position independent and 
can reside anywhere in memory, 
including ROM packs. The package 
sells for $39.95 and requires 32K, one 
disk drive. Contact Computerware, 
P.O. Box 668, 4403 Manchester Ave., 
Suite 103, Encinitas,CA 92024, (619) 



SeekEasy 

SeekEasy is an easy to use ining 
system that accepts vague, 
incomplete, misspelled, or only 
partially correct inputs, yet still 
finds and displays the information 
you want. Most likely items are at 
the top of the displayed list. Even if 
you forgot "good old Steve's" phone 
number and last name, SeekEasy 
will find it. There are no new 
commands or input order to learn; 
just type what you want to find and 
press enter. Storing new data is just 
as simple. The program uses the 
CP/M 2.0 or 2.2 operating system. 
Model I TRS-80's modified with 
Omikron, or Model Ill's modified 
with Memory Merchant are 
supported. A demonstration disk 
and manual are available for $15, 
the complete program sells for $235. 
Contact Correlation Systems, 81 
Rockinghorse Road, Rancho Palos 
Verdes, CA 90274, (213) 833-3462. 

Pedestal Computer Table 

The award winning pedestal 
computer table is available from 
Taylor Woodcraft, Inc. Its features 
include locking casters, bumper 
guard, cord organizer, low-glare 
finish, and automatic height 
adjustment. The keyboard ledge 
adjusts from 22 to 28 inches and 
slides under the top for storage when 
the computer is not in use. The top 
pivots a full 360 degrees for shared 
reference to the CRT by more than 
one operator. Suggested retail price 
is $260. Contact Taylor Woodcraft, 
Inc., P.O. Box 245, South River 
Road, Malta, OH 43758, (614) 962- 
3741. 
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WHERE TO FIND FREE 
PROGRAMS FOR YOUR TRS-80, 
APPLE, OR IBM MICROCOM PUTER" 

Vol. 1. Index to 4000 BASIC Programs 

Contained in 160 Popular Computer Books 

176 pages. $14.95 

Vol. 2. Index to 4000 BASIC Programs 
Contained in 500 Computer Magazines 1979-1983 

196 pages. S14.95 

Al 1 8000 programs described by title and indexed by 
subject — Astronomy to Bookkeeping to Games to 
Graphics to Utilities to Zoology, etc. 

For programmers, computer users, teachers, stu- 
dents — Learn where to find program listings and 
algorithms. Saves hours of programming time. 
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PASADENA TECHNOLOGY PRESS 

P. 0. Box 3836 
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Include $2.00 Postage and Handling per order. 
California residents add 6.5% sales tax. 
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Lynn Computer Service , 

Lynn Computer Service 

Marymac Industries, Inc 

Micro-80, Inc 

Micro-Mega 

Micro Architect, Inc 

Micro Images, Inc 

Micro Labs, Inc 

Micro Management Systems . 

Micro Systems Software 

Microcomputer Applications . 
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MISOSYS 

New Classics Software 
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EPSON* OWNERS 

We get letters on a regular basis 
from customers saying how much 
they enjoy receiving our lists. 

If s probably safe to say that our lists 
are different from most of the others in 
that they are as entertaining as they 
are informative. 

The lists are "slanted" toward the 
EPSON Printer user but should be of 
interest to the owner of most any 
microcomputer printer. 

Send us your name and address 
and we'll send you a rather fat 
envelope filled with computer 
oriented offers. 





*« p.o. Box 27 
Fremont, Michigan 49412 

Lists sent to USA addresses and by mail only 'EPSON 

trademark of Epson. America Inc. 




^> OWjLL- 



% 1 TH1MVC I FDUrAD OUT vW WE'RE LOSING 50 MWW TR0&RM4S., ./ " 



76 Basic Computing 






NOW, I KNOW I CAN MAKE BIG MONEY WRITING AND SELLING MV 

PROGRAMS, THIS BOOK TOLD ME WHAT TO WRITE - WHO TO SELL 

IT TO - THOUSANDS OF NAMES, ADDRESSES. IDEAS, GUIDELINES. 

"SOFTWARE WRITERS MARKET 44 IS A FANTASTIC BOOK! 




WHO TO SELL YOUR PROGRAMS TO 

THOUSANDS OF COMPANY NAMES AND ADDRESSES, 

WITH DETAILED LISTINGS SHOWING: 

(1) WHAT PROGRAMS PUBLISHERS ARE LOOKING FOR 

(2) HOW THEY WANT YOU TO SUBMIT YOUR PROGRAM 

(3) HOW MUCH THEY PAY — AND WHEN! 
100 CATEGORIES — FROM "ACCOUNTS RECEIVABLE 
TO "GAMES" TO "VIDEO CONTROL" PROGRAMS 

* HOW TO WRITE CLEAR DOCUMENTATION 

* DEBUGGING TECHNIQUES Name 



y Today! 



Enclose check or money order 
for $19.95 CNo C.O.D/sJ to: 

#63 (PF Publications 
146 Country Club Lane 
Pomona. NY 10970 
C914J 354-5585 



Address 



City 



State Zip 
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See us at 




SOFTCON 

La Superdome 

New Orleans 

Tuesday-Thursday 

February 21-23, 1984 

BOOTH P-2063 





MODEL 

Word Processing Program 



TRS-80 MODEL 4 



WORD PROCESSING SYSTEM 
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80x24 DISPLAYS 

□ Works with TRSDOS 6 or any Model lit DOS. 

□ 90K TEXT BUFFER when expanded memory is installed. 
n Built-in FORM LETTER and MAIL-MERGE capabilities. % 

□ Performs PROPORTIONAL-SPACE right-margin justification on v 
over 60 different printers (all drivers included FREE). 

n Same powerful editing features as ZORLOF II, with dozens more 
features added. 

□ Versions also available to run on MODEL I, MODEL III, LNW-80, 
PMC-80, and MAX-80 (80x24 display). 

LeScript costs s 200 less than 

competing products matching its capabilities. 






\ 



- 



A 





CALL 1-305-259-9397 




ANITEK SOFTWARE PRODUCTS 

P.O. BOX 361136 
MELBOURNE. FL 32936 *« 



FREE SHIPPING WITHIN THE U.S.; OUTSIDE THE US ADD $10.00 FOR SHIPPING: FLORIDA RESIDENTS ADO 5% SALES TAX 
BY CHECK, MONEY ORDER CREDIT CARD OR COD 
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ALL ORDERS PREPAID 




SOFTWARE WRITERS INTERNATIONAL GUILD 



SCHEDULED 

SWIG ACTIVITIES & 

MEMBERSHIP BENEFITS 

(1) $10,000 PROGRAMMING 
CONTEST (Members only) 

(2) NATIONAL COMPUTER 
WEEK (May 11- 

May 20, 1984) 

(3) ANNUAL CONFERENCE 
AND SOFTWARE AWARDS 
CEREMONY (During 
National Computer Week) 

(4) CONSULTANT REGISTRY 

(With computer store refer- 
ral system for customized 
software) 

(5) JOB PLACEMENT SER- 
VICE (Free to individual 
members, fixed maximum 
fee to companies) 

(6) FREE SEMINARS & 
MEETINGS LOCALLY 

(7) SOFTWARE LIBRARY 
LENDING & EXCHANGE 
SERVICE (Professional 
quality assemblers, 
utilities, games, etc.) 

(8) SOFTWARE LOCATION 
SERVICE (For companies 
& individuals-if it exists, 
SWIG will find it. If not, 
see #9) 

(9) SOFTWARE DEVELOP- 
MENT SERVICE (From 
novice to scientist, SWIG 
members can work on any 
project -from applications 
to games to R&D) 

(10) LEGAL SERVICE 

(11) AGENT (SWIG can 
represent you in sales to 

software publishers) 

(12) 24 HOUR - 7 DAY BULLE- 
TIN BOARD SYSTEM 
(BBS) ACCESSIBLE BY 
COMPUTER FREE 

(13) AND MORE!!!! 



THE LARGEST PAID MEMBERSHIP PROGRAMMERS 

OVER 5,000 MEMBERS WORLDWIDE!! 




MEMBERSHIP APPLICATION FOR 
SOFTWARE WRITERS INTERNATIONAL GUILD 



NAME 



ADDRESS 



CITY 



STATE 



ZIP 



PHONE#( 



CLASSIFICATION: 



□ NOVICE 



BEGINNER TO ADVANCED 



ADVANCED WITH ON THE JOB EXPERIENCE 



RESEARCH/SCIENTIST 



WHAT EQUIPMENT DO YOU HAVE EXPERIENCE WITH &/OR ACCESS TO &/OR 
PLAN TO BUY? 



MAINFRAME 



MIN 



MICRO 



DESIGN/R&D 



BRAND NAME(S): □ IBM □ XEROX □ APPLE □ Tl 



□ COMMODORE 

D TIMEX/SINCLAIR 

□ OTHER 



RADIO SHACK 

D NORTH STAR 



D ATARI 



□ OSBORNE 



D HEWLETT PACKARD 



AREAS OF INTEREST: 

D DATA PROCESSING 



D BUSINESS APPLICATIONS 



D GRAPHICS 



D LEGAL D VOICE D MEDICAL □ APPLIANCE (HOME) CONTROL 



ROBOTICS 



D GAMES 



a music 



a R&D 



OTHER 



MEMBERSHIP ACTIVITIES AND SERVICES OF INTEREST: 



READ THE LIST ON THE LEFT AND CIRCLE THE NUMBERS BELOW THAT APPLY. 



1 



4 



6 



8 



I HAVE ENCLOSED $20 ANNUAL MEMBERSHIP 
(MAKE CHECK PAYABLE TO: SWIG) 



10 

□ CK 



11 12 



a mo 



RETURN TO: 



SWIG <65 

P.O. BOX 87 

STONY POINT, NEW YORK 10980 

(914) 354-5585 

SWIGfe SOFTWARE WRITERS INTERNATIONAL GUILD 
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The versaBusiness™ Series 



Each VERSABUSINESS module can be purchased and used independently, 
or can be linked in any combination to form a complete, coordinated business system. 



VERSAReCEIVABLES 7 " $99.95 

VERSA RECEIVABLES™ is a complete menu driven accounts receivable, invoicing, and 
monthly statement-generating system It keeps track of all information related to who 
owes you or your company money, and can provide automatic billing for past due ac 
counts, VERSA RECEIVABLES' - prints ail necessary statements, invoices, and summary 
reports and can be linked with VersaLedger IV and Versa INVENTORY'". 

VERSAPaYABLES™ $99.95 

Versa PAYABLES*" is designed to keep track of current and aged payables, keeping you 
in touch with alt information regarding how much money your company owes, and to 
whom. VERSA Payables™ maintains a complete record on each vendor, prints checks, 
check registers, vouchers, transaction reports, aged payables reports, vendor reports, 
and more. With VersaPayables*\ you can even let your computer automatically select 
f hich vouchers are to be paid, 

ERSAPaYROLL™ $99.95 

VERSA PAYROLL*- is a powerful and sophisticated, but easy to use payroll system that 
keeps track of all government -required payroll information. Complete employee records 
are maintained, and all necessary payroll calculations are performed automatically, with 
totals displayed on screen for operator approval. A payroll can be run totally, automati 
cally, or the operator can intervene to prevent a check from being printed, or to alter 
information on it If desired, totals may be posted to the VfcRSALEDGER 11™ system. 

VERSAlNVENTORY™ $99.95 

Versa INVENTORY™ ts a complete inventory control system that gives you instant access 
to data on any item VERSA INVENT OR Y* keeps (rack of all information related to what 
items are in stock, out of stock, on baekorder, etc., stores sales and pricing data, alerts 
you when an tlem fails below a preset reorder point, and allows you to enter and print 
invoices directly or to link with the VERSA RECEIVABLES" system. Versa Inventory™ prints 
all needed inventory listings, reports of items below reorder point, inventory value re- 
ports, period and year-to-date sales reports, price lists, inventory checklists, etc, 



VersaLedger it $149,95 

VersaLedger II th is a complete accounting system that grows as your business 
grows. VersaLedger 11™ can be used as a simple personal checkbook register, 
expanded to a small business bookkeeping system or developed into a large 
corporate general ledger system without any additional software. 

• VersaLedger II™ gives you almost unlimited storage capacity 

(300 to 10,000 entries per month, depending on the system), 

• stores all check and general ledger information forever, 

• prints tractor-feed checks, , 

• handles multiple checkbooks and general ledgers, 

• prints 17 customized accounting reports including check registers, 
balance sheets, income statements, transaction reports, account 
listings, etc, 

VersaLedger IP comes with a professionally- written 160 page manual de- 
signed for first-time users. The VersaLedger 11™ manual will help you become 
quickly familiar with VersaLedger IF\ using complete sample data files 
supplied on diskette and more than 50 pages of sample printouts. 



•CQMPUTRQNICS 

50 N. PASC ACK ROAD, SPRING VALLEY, N.V. 10977 



I 



SATISFACTION GUARANTEED! 



Euery VERSABUSINESS 1 * module is guaranteed to outperform all other competitive systems, 
and at a fraction of their cost. If you are not satisfied with any VERSABUSINESS'* module, you 
may return it within 30 days for a refund. Manuals (or any VERSABUSINESS™ module may be 
purchased for 125 each, credited toward a later purchase of that module. 
AH CP/M based Computers must be equipped with Microsoft BASIC 
(MBASIC or BASIC 80) 



To Order: 

Write or call Toll-free (800) 431 2818 
(N.Y.S. residents call 914*425 1535) 

* add 13 for shipping in UPS areas * add $5 to CANADA or MEXICO 

# add $4 for CO. D, or non-UPS areas ^^^^ * add proper postage elsewhere 

ir' rv*_ 
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DEALER INQUIRIES WELCOME 

All prices and specifications subject to change / Delivery subject to availability 




IRS SO trademark Tandy Corp APPLE trademark Apple Corp. IBM PC trademark IBM Corp OSBORNE trademark Osborne Corp. XEROX trademark Xerox Corp KAYPRO trademark Non Linear 
Systems. Inc. TELEVIDEO trademark Tetevrdeo Systems, Jnc. SANYO trademark Sanyo Corp. NEC trademark NEC Corp. DEC Trademark Digital Equipment Corp ZENITH trademark Zenith Corp 
71 PROFESSIONAL COMPUTER trademark Texas Instruments. Inc SUPERBRAJN trademark Intertec Coro. CPU trads-mArl* ni™t*l Ro^^h 
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